r26939 - in /trunk/libvorbis-perl/debian: changelog repack.pl

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Nov 16 00:19:16 2008
New Revision: 26939

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26939
Log:
Adjust debian/repack.pl to the changed debian/watch, i.e. rename the
tarball.

Modified:
    trunk/libvorbis-perl/debian/changelog
    trunk/libvorbis-perl/debian/repack.pl

Modified: trunk/libvorbis-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvorbis-perl/debian/changelog?rev=26939&op=diff
==============================================================================
--- trunk/libvorbis-perl/debian/changelog (original)
+++ trunk/libvorbis-perl/debian/changelog Sun Nov 16 00:19:16 2008
@@ -12,6 +12,8 @@
   [ gregor herrmann ]
   * Add debian/README.source to document quilt usage, as required by
     Debian Policy since 3.8.0.
+  * Adjust debian/repack.pl to the changed debian/watch, i.e. rename the
+    tarball.
 
  -- Joachim Breitner <nomeata at debian.org>  Wed, 13 Feb 2008 23:28:14 +0000
 

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