diff options
author | Guilhem Moulin <guilhem.moulin@ens-lyon.org> | 2011-08-10 14:54:38 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@ens-lyon.org> | 2011-08-10 14:54:38 +0200 |
commit | 0b6c492c04694247edc09e7838247d05d730fe5e (patch) | |
tree | 928595edb8597f16dd960058fdba3c5e0f1c8b34 | |
parent | d3083a686983131b5cbb645ac9fdd54199d07426 (diff) |
dirs
-rwxr-xr-x | videomv.pl | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -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"; |