From 0b6c492c04694247edc09e7838247d05d730fe5e Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Wed, 10 Aug 2011 14:54:38 +0200
Subject: dirs

---
 videomv.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/videomv.pl b/videomv.pl
index bce7064..45ad208 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -24,11 +24,8 @@ use strict;
 
 # Configuration
 
-my $symlinks  = catdir('/','tmp','video','MOVIES');    # Symlinks folder
-my $directors = catdir('', 'tmp','video','DIRECTORS'); # Directors folder
-
-#my $symlinks  = catdir($HOME,'video','MOVIES');    # Symlinks folder
-#my $directors = catdir($HOME,'video','DIRECTORS'); # Directors folder
+my $symlinks  = catdir($HOME,'video','MOVIES');    # Symlinks folder
+my $directors = catdir($HOME,'video','DIRECTORS'); # Directors folder
 
 my $driver    = "mysql";
 my $database  = "videodb";
@@ -554,6 +551,8 @@ sub perform {
 sub revert {
     my @actions = reverse @_;
 
+    return if $#actions < 0;
+
     print LOG "\n";
     print STDERR "Failed!: reverting successful changes...\n";
 
-- 
cgit v1.2.3