From d1e1052a437054bc6c0cab3fe8b150a9fd5a435f Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Fri, 17 Feb 2012 18:16:52 +0100
Subject: bug

---
 videomv.pl | 4 ++--
 1 file 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),
-- 
cgit v1.2.3