r36999 - in /trunk/libsyntax-highlight-engine-simple-languages-perl/debian: control.in refresh.pl

[bremner-guest at users.alioth.debian.org]

Author: bremner-guest
Date: Sun May 31 21:02:25 2009
New Revision: 36999

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36999
Log:
rename MODULE_LIST to MODULE_DESC_LIST

Modified:
    trunk/libsyntax-highlight-engine-simple-languages-perl/debian/control.in
    trunk/libsyntax-highlight-engine-simple-languages-perl/debian/refresh.pl

Modified: trunk/libsyntax-highlight-engine-simple-languages-perl/debian/control.in
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsyntax-highlight-engine-simple-languages-perl/debian/control.in?rev=36999&op=diff
==============================================================================
--- trunk/libsyntax-highlight-engine-simple-languages-perl/debian/control.in (original)
+++ trunk/libsyntax-highlight-engine-simple-languages-perl/debian/control.in Sun May 31 21:02:25 2009
@@ -21,4 +21,4 @@
  .
  Currently, this package includes the following modules:
  .
-#MODULE_LIST#
+#MODULE_DESC_LIST#

Modified: trunk/libsyntax-highlight-engine-simple-languages-perl/debian/refresh.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsyntax-highlight-engine-simple-languages-perl/debian/refresh.pl?rev=36999&op=diff
==============================================================================
--- trunk/libsyntax-highlight-engine-simple-languages-perl/debian/refresh.pl (original)
+++ trunk/libsyntax-highlight-engine-simple-languages-perl/debian/refresh.pl Sun May 31 21:02:25 2009
@@ -11,7 +11,7 @@
 my $pkgconf=$parser->parse_file("debian/packages.cfg",
 				{useTieIxHash=>1,stripComments=>1}) || die "parser failed: $!";
 
-my $module_list=make_module_list($pkgconf);
+my $module_desc_list=make_module_desc_list($pkgconf);
 my $copyright_stanzas=make_copyright_stanzas($pkgconf);
 
 for my $file (@infiles) {
@@ -19,7 +19,7 @@
     my $outfile= $file;
     $outfile =~ s/\.in$//;
     
-    $content=~ s/#MODULE_LIST#/$module_list/;
+    $content=~ s/#MODULE_DESC_LIST#/$module_desc_list/;
     $content=~ s/#COPYRIGHT_STANZAS#/$copyright_stanzas/;
 
     write_file($outfile,$content);
@@ -32,16 +32,15 @@
   return $desc;
 }
 sub make_copyright_stanzas($){
-  my $mref=shift;
-  my @modules=@{$mref};
+  my @modules=@{shift()};
   my @list=map { $parser->write_mem($_); } @modules;
   return join("\n\n", at list);
 }
 
-sub make_module_list($){
-  my $mref=shift;
-  my @modules=@{$mref};
+sub make_module_desc_list($){
+  my @modules=@{shift()};
   my @list=map {"  * ". $_->{Module} . " (". short_desc($_) .")" } @modules;
   return join("\n", at list);
 }
 
+