The following commit has been merged in the master branch:
commit f2e3cf6c07fda1da156374fcb7897cc93a096e34
Author: Christian Kastner <deb...@kvr.at>
Date:   Fri May 27 00:21:18 2011 +0200

    Fix --destdir regression when repacking ZIP files
    
    The --destdir option no longer worked with relative paths because we cd 
before
    archiving. This patch uses an absolute path when creating the archive.
    
    Signed-off-by: James Vega <james...@debian.org>

diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index d760281..c1599d3 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -24,6 +24,7 @@
 use 5.008;  # uses 'our' variables and filetest
 use strict;
 use Cwd;
+use Cwd 'abs_path';
 use File::Basename;
 use File::Copy;
 use File::Temp qw/tempdir/;
@@ -1374,12 +1375,13 @@ EOF
        my $tempdir = tempdir ( "uscanXXXX", TMPDIR => 1, CLEANUP => 1 );
        my $globpattern = "*";
        my $hidden = ".[!.]*";
+       my $absdestdir = abs_path($destdir);
        system("unzip -q -a -d $tempdir $destdir/$newfile_base") == 0
          or die("Repacking from zip to tar.gz failed (could not unzip)\n");
        if (defined glob("$tempdir/$hidden")) {
            $globpattern .= " $hidden";
        }
-       system("cd $tempdir; GZIP=-9 tar --owner=root --group=root --mode=a+rX 
-czf $destdir/$newfile_base_gz $globpattern") == 0
+       system("cd $tempdir; GZIP=-9 tar --owner=root --group=root --mode=a+rX 
-czf $absdestdir/$newfile_base_gz $globpattern") == 0
          or die("Repacking from zip to tar.gz failed (could not create 
tarball)\n");
        unlink "$destdir/$newfile_base";
        $newfile_base = $newfile_base_gz;

-- 
Git repository for devscripts


-- 
To unsubscribe, send mail to pkg-devscripts-unsubscr...@teams.debian.net.

Reply via email to