r52269 - in /trunk/libperl-apireference-perl/debian: regenerate.pl rules

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Feb  7 14:02:03 2010
New Revision: 52269

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52269
Log:
move original generated files saving/restoring in debian/rules
debian/regenerate.pl greatly simplified

Modified:
    trunk/libperl-apireference-perl/debian/regenerate.pl
    trunk/libperl-apireference-perl/debian/rules

Modified: trunk/libperl-apireference-perl/debian/regenerate.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-apireference-perl/debian/regenerate.pl?rev=52269&op=diff
==============================================================================
--- trunk/libperl-apireference-perl/debian/regenerate.pl (original)
+++ trunk/libperl-apireference-perl/debian/regenerate.pl Sun Feb  7 14:02:03 2010
@@ -6,17 +6,6 @@
 
 use strict;
 use warnings;
-
-my $mode;
-
-if($ARGV[0] && $ARGV[0] =~ /clean/) {
-  $mode = "clean";
-} else {
-  $mode = "generate";
-}
-
-my($clean, $generate);
-eval "\$$mode = 1;";
 
 sub pad_with_zeros {
   my $num = shift;
@@ -28,15 +17,8 @@
 
 sub sortable {
   my $v = shift;
-  $v =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)/$1 . "." . pad_with_zeros($2) . pad_with_zeros($3)/e;
+  $v =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)/sprintf("%s.%03d.%03d", $1, $2, $3)/e;
   return $v;
-}
-
-sub my_unlink {
-  my $f = shift;
-  return if (!-e $f);
-  print "  Removing: $f\n";
-  unlink($f);
 }
 
 sub my_system {
@@ -51,28 +33,22 @@
 @list = grep /bz2/, @list;
 map {s/perlapi.(.*).pod.bz2/$1/} @list;
 print "Found these versions:\n";
- at list = sort {sortable($a) <=> sortable($b)} @list;
+ at list = sort {sortable($a) cmp sortable($b)} @list;
 foreach my $v(@list) {
   print "  $v\n";
 }
 foreach my $v(@list) {
   print "Processing: $v\n";
-  my $bz = "./data/perlapi." . $v . ".pod.bz2";
-  my $t = "./data/perlapi." . $v . ".pod";
-  my $r = "./lib/Perl/APIReference/V" . $v . ".pm";
-  my $pv = "$v";
-  $r =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)/$1 . "_" . pad_with_zeros($2) . "_" . pad_with_zeros($3)/e;
-  $pv =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)/$1 . "." . pad_with_zeros($2) . (($3 > 0) ? pad_with_zeros($3) : "")/e;
-  my $br = "$r";
-  $br =~ s/.*\///g;
-  if($clean) {
-    my_unlink $t;
-    my_unlink $r;
-    my_unlink $br;
-  }
-  if($generate) {
-    my_system("bunzip2", "-f", "-k", $bz);
-    my_system("perl", "-I", "lib", "./author_scripts/generate.pl", $t, $pv);
-    my_system("mv", $br, $r);
-  }
+  my $data_bz = "./data/perlapi." . $v . ".pod.bz2";
+  my $data = "./data/perlapi." . $v . ".pod";
+  my $target = "./lib/Perl/APIReference/V" . $v . ".pm";
+  my $perl_ver = "$v";
+  $target  =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)/sprintf("%s_%03d_%03d", $1, $2, $3)/e;
+  $perl_ver =~ s/([0-9]+)\.([0-9]+)\.([0-9]+)/sprintf("%s.%03d%03d", $1, $2, $3)/e;
+  $perl_ver =~ s/000$//;    # 5.006000 => 5.006
+  my $generated = "$target";
+  $generated =~ s/.*\///g;
+  my_system("bunzip2", "-f", "-k", $data_bz);
+  my_system("perl", "-I", "lib", "./author_scripts/generate.pl", $data, $perl_ver);
+  my_system("mv", $generated, $target);
 }

Modified: trunk/libperl-apireference-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-apireference-perl/debian/rules?rev=52269&op=diff
==============================================================================
--- trunk/libperl-apireference-perl/debian/rules (original)
+++ trunk/libperl-apireference-perl/debian/rules Sun Feb  7 14:02:03 2010
@@ -4,17 +4,16 @@
 	dh $@
 
 regenerated-stamp: debian/regenerate.pl
-	chmod +x debian/regenerate.pl
-	debian/regenerate.pl
+	prename -f 's/\.pm$$/.pm-orig/' lib/Perl/APIReference/V*
+	perl debian/regenerate.pl
+	test -f lib/Perl/APIReference/V5_010_001.pm
 	touch $@
 
 override_dh_auto_configure: regenerated-stamp
-	@test -f lib/Perl/APIReference/V5_010_001.pm
 	dh_auto_configure
 
 override_dh_auto_clean:
 	dh_auto_clean
-	chmod +x debian/regenerate.pl
-	debian/regenerate.pl clean
 	! [ -e regenerated-stamp ] || rm regenerated-stamp
-	@! test -f lib/Perl/APIReference/V5_010_001.pm
+	prename -f 's/\.pm-orig$$/.pm/' lib/Perl/APIReference/V*.pm-orig
+	rm -f data/*.pod