diff options
-rwxr-xr-x | videomv.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -543,10 +543,10 @@ if (defined $old_symlink) { } open my $DIR, catdir($directors, $old_director) or die "Can't open: $!"; -if (scalar(grep( !/^\.\.?$/, readdir(DIR)) == 0)) { +if (scalar(grep(!/^\.\.?$/, readdir $DIR) == 0)) { &perform ("Removing empty dir... ", rmdir catdir($directors, $old_director)); } -closedir DIR or die "Can't close: $!"; +closedir $DIR or die "Can't close: $!"; &perform ("Creating new symlink... ", symlink catfile(updir(),'DIRECTORS',$new_director,$new_filename), |