diff -r bef1e4dd8e85 -r 129b39480dc5 cleaner --- a/cleaner Sun Jul 24 00:22:11 2011 +0200 +++ b/cleaner Sun Jul 24 00:51:36 2011 +0200 @@ -21,6 +21,7 @@ ); lock_keys(%o); MAIN: { + Getopt::Long::Configure qw(Bundling); GetOptions( "n|dry!" => \$o{dry}, "v|verbose!" => \$o{verbose}, @@ -40,7 +41,7 @@ find(sub { (-f) and (-M > 0) or return; - verbose("idx: $File::Find::name"); + #verbose("idx: $File::Find::name"); push @idx, abs_path $_; foreach my $f (get_file_list($_)) { push @{$inuse{$f}} => $#idx; @@ -91,17 +92,16 @@ # cut away the first part of the filename and # some optional extension - $File::Find::name = abs_path $File::Find::name; (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/; exists $inuse{$rn} and return; if ($o{dry}) { - verbose("(unlinking) $File::Find::name"); + verbose("(unlinking) abs_path $File::Find::name"); return; } - verbose("unlinking $File::Find::name"); - unlink $File::Find::name; + verbose("unlinking abs_path $File::Find::name"); + unlink abs_path $File::Find::name; }, "$dir/data");