I'm not a perl programmer I work with C and TCL, but I had a look at
/usr/bin/atool.
The problem is in the unlink_directory subroutine ...
====================================================================
sub unlink_directory($) {
my ($dir) = @_;
die "$::basename: internal error 1 - please report this bug\n"
if ($dir eq '/' || $dir eq $ENV{HOME});
# chmod 0700, $dir || die "$::basename: cannot chmod `".quote($dir)."': $!\n";
chdir $dir || die "$::basename: ".quote($dir).": cannot change to - $!\n";
opendir(DIR, $::cur) || die "$::basename: ".quote($dir).": cannot list -
$!\n";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
next if $file eq $::cur || $file eq $::up;
if (-d $file && !-l $file) {
unlink_directory($file);
} else {
unlink $file || die "$::basename: ".quote($file).": cannot remove - $!\n";
}
}
chdir $::up || die "$::basename: $::up: cannot change to - $!\n";
rmdir $dir || die "$::basename: ".quote($dir).": cannot remove - $!\n";
}
====================================================================
Line 1677 reads: unlink $file || die "$::basename: ".quote($file).":
cannot remove - $!\n";
if I change the unlink $file to unlink "./$file" then the error goes
away. The file which is generating the error is named "0" (without
quotes), so perl must has some issue with the statement "unlink 0".
I can't do anymore but this is a workaround for me.
--
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.
https://bugs.launchpad.net/bugs/1360259
Title:
atool fails to convert a 7z archive to zip, terminates with an error
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/atool/+bug/1360259/+subscriptions
--
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs
