diff options
-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"; |