Package: libarch-perl
Version: 0.4.2-1
Severity: normal
Tags: patch
if you use the base_name arg to Arch::Tarball::create() (like Archzoom does)
the extra directory doesn't get created.
Also the arg '-P' to cp in Arch::Util::copy_dir appears to have changed
meaning from '--no-dereference' to '--parents'.
$ dpkg -l $(dpkg -S `which cp` | cut -f1 -d:) | grep ^ii
ii fileutils 4.1-10 GNU file management
utilities
-- System Information
Debian Release: 3.0
Architecture: i386
Kernel: Linux icarus.chaosengine.net 2.4.18-1-686-smp #1 SMP Wed Apr 14
18:42:49 UTC 2004 i686
Locale: LANG=C, LC_CTYPE=C
Versions of packages libarch-perl depends on:
ii tla 1.3-0.backports.org.1 arch revision control system
diff -u Arch-0.4.2/Tarball.pm Arch/Tarball.pm
--- Arch-0.4.2/Tarball.pm 2005-02-20 09:44:55.000000000 +1000
+++ Arch/Tarball.pm 2005-02-20 09:38:27.000000000 +1000
@@ -54,6 +54,7 @@
if ($needed_base_name && $needed_base_name ne $base_name) {
my $temp_dir = temp_dir_name("arch-tarball");
mkdir($temp_dir, 0777) or die "Can't mkdir $temp_dir: $!\n";
+ mkdir("$temp_dir/$needed_base_name", 0777) or die "Can't mkdir
$temp_dir/$needed_base_name: $!\n";
copy_dir("$dir/$base_name", "$temp_dir/$needed_base_name");
$base_name = $needed_base_name;
$dir = $temp_dir;
diff -u Arch-0.4.2/Util.pm Arch/Util.pm
--- Arch-0.4.2/Util.pm 2005-02-20 09:44:55.000000000 +1000
+++ Arch/Util.pm 2005-02-20 09:42:38.000000000 +1000
@@ -113,7 +113,7 @@
sub copy_dir ($$) {
my $dir1 = shift;
my $dir2 = shift;
- my $out = run_cmd("/bin/cp -PRp", $dir1, $dir2);
+ my $out = run_cmd("/bin/cp --no-dereference -Rp", $dir1, $dir2);
warn $out if $out;
}
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
