lintian: r1236 - trunk/unpack
Author: rra
Date: 2008-03-03 06:38:12 +0100 (Mon, 03 Mar 2008)
New Revision: 1236
Modified:
trunk/unpack/unpack-srcpkg-l2
Log:
We still have to do the chdir to work around a bug in the current
dpkg-source.
Modified: trunk/unpack/unpack-srcpkg-l2
===================================================================
--- trunk/unpack/unpack-srcpkg-l2 2008-03-03 05:37:39 UTC (rev 1235)
+++ trunk/unpack/unpack-srcpkg-l2 2008-03-03 05:38:12 UTC (rev 1236)
@@ -32,6 +32,7 @@
my $base_dir = shift;
print "N: Unpacking source package in directory $base_dir ...\n" if $verbose;
+chdir($base_dir);
# We can't use spawn yet because older versions of dpkg-source print things
# out even with -q. This can be fixed to use spawn once that newer version of
@@ -41,7 +42,7 @@
fail("cannot fork: $!");
} elsif ($pid == 0) {
open(STDOUT, '>', '/dev/null');
- exec('dpkg-source', '-q', '-x', "$base_dir/dsc", "$base_dir/unpacked");
+ exec('dpkg-source', '-q', '-x', 'dsc', 'unpacked');
} else {
waitpid($pid, 0);
unless ($? == 0) {
@@ -50,7 +51,7 @@
}
# fix permissions
-spawn('chmod', '-R', 'u+rwX,o+rX,o-w', "$base_dir/unpacked") == 0 or fail();
+spawn('chmod', '-R', 'u+rwX,o+rX,o-w', 'unpacked') == 0 or fail();
exit 0;
Reply to: