Skip to content

Commit

Permalink
wip: properly show what file won't be deleted
Browse files Browse the repository at this point in the history
  • Loading branch information
frankiejol committed Oct 19, 2023
1 parent 00d405b commit f5c7f49
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion t/storage_list_unused.t
Original file line number Diff line number Diff line change
Expand Up @@ -506,7 +506,7 @@ sub remove_dir($dir) {
opendir my $in,$dir or die "$! $dir";
while (my $file = readdir $in) {
next if $file =~ /^\.+$/;
die "I will not delete $file" if $file !~ /^$base/;
die "I will not delete $dir/$file" if $file !~ /^$base/;
my $path = "$dir/$file";
remove_dir($path);
}
Expand Down

0 comments on commit f5c7f49

Please sign in to comment.