r26940 - in /trunk/libxml-sax-perl/debian: changelog repack.pl

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

Author: thialme-guest
Date: Sun Nov 16 00:34:38 2008
New Revision: 26940

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26940
Log:
Refreshed reapck.pl script.

Modified:
    trunk/libxml-sax-perl/debian/changelog
    trunk/libxml-sax-perl/debian/repack.pl

Modified: trunk/libxml-sax-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/debian/changelog?rev=26940&op=diff
==============================================================================
--- trunk/libxml-sax-perl/debian/changelog (original)
+++ trunk/libxml-sax-perl/debian/changelog Sun Nov 16 00:34:38 2008
@@ -2,9 +2,11 @@
 
   [Franck Joncourt]
   * Replace uversionmangle by dversionmangle in debian/watch.
-    This fixes the following lintian warning:
-    http://lintian.debian.org/tags/debian-watch-file-should-dversionmangle\
-    -not-uversionmangle.html
+    + Refreshed the repack.pl script.
+    + This fixes the following lintian warning:
+      http://lintian.debian.org/tags/debian-watch-file-should-dversionmangle\
+      -not-uversionmangle.html
+  
 
   [ Gregor Herrmann ]
   * Add debian/README.source to document quilt usage, as required by

Modified: trunk/libxml-sax-perl/debian/repack.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-sax-perl/debian/repack.pl?rev=26940&op=diff
==============================================================================
--- trunk/libxml-sax-perl/debian/repack.pl (original)
+++ trunk/libxml-sax-perl/debian/repack.pl Sun Nov 16 00:34:38 2008
@@ -26,7 +26,9 @@
      or not defined $version 
      or not defined $file);
 
-$version =~ s/\+dfsg$//;
+my $uversion = $version;
+$uversion =~ s/\+dfsg$//;
+my $dversion = $uversion . '+dfsg';
 
 my $tar = Archive::Tar->new;
 $tar->read($file) or die("read tar file $file: $!");
@@ -49,5 +51,9 @@
     or die("opening the repacked tar archive failed: $!");
 $tar->write(\*OUT) or die("writing to the repacked tar archive failed: $!");
 
+my $newfile = $file;
+$newfile =~ s/$uversion/$dversion/;
+rename ($file, $newfile);
+
 print "$file repackaged succesfully.\n";