From 32d8b0131bea5bb8dbd485643c9c126064055b5f Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Fri, 17 Feb 2012 18:33:18 +0100
Subject: removing empty dirs (fix)

---
 videomv.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'videomv.pl')

diff --git a/videomv.pl b/videomv.pl
index d103aac..a96e62d 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -542,7 +542,7 @@ if (defined $old_symlink) {
     &perform ("Deleting old symlink... ", unlink $old_symlink);
 }
 
-open my $DIR, catdir($directors, $old_director) or die "Can't open: $!";
+opendir my $DIR, catdir($directors, $old_director) or die "Can't open: $!";
 if (scalar(grep(!/^\.\.?$/, readdir $DIR) == 0)) {
     &perform ("Removing empty dir...   ", rmdir catdir($directors, $old_director));
 }
-- 
cgit v1.2.3