summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-02-17 18:16:52 +0100
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-02-17 18:16:52 +0100
commitd1e1052a437054bc6c0cab3fe8b150a9fd5a435f (patch)
tree7d025437dc8695c61e21a4da083500c8f704b9de
parentafa99ef07d74e993ac86811e24177f5818aa855b (diff)
bug
-rwxr-xr-xvideomv.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/videomv.pl b/videomv.pl
index 004f51e..d103aac 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -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),