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; -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]