use Errno qw(ENOENT);
use Carp qw(confess cluck croak carp);
BEGIN {
- if (!eval q{use File::Remove qw(remove);}) {{
- sub main::remove
+ if (!eval q{ use File::Remove qw(remove); 1; }) {{
+ sub main::remove(@)
{
my $r="";
if ("SCALAR" eq ref $_[0]) {
next if /^D$/;
do { push @dir_dirs ,$1; next; } if m#^D/([^/]*)/#;
next if m#^/[^/]*/-#; # deleted file: /filename/-1.1/dummy timestamp//
- next if m#^/[^/]*/0/#; # new file: /filename/0/dummy timestamp//
+ # New file is a valid entry!
+ # next if m#^/[^/]*/0/#; # new file: /filename/0/dummy timestamp//
do { push @dir_files,$1; next; } if m#^/([^/]*)/# ;
mayfatal "File ".ENTRIES." contains invalid line \"$_\"",("noerrno"=>1);
}
{
my($filename)=@_;
- chmod 0600,$filename or do {
+ # &chmod follows the symlinks.
+ -l $filename or chmod 0700,$filename or do {
mayfatal "File \"$_\" cannot be chmod(2)ed" if !$!{ENOENT};
};
# '\1' for '-r':