diff options
| -rwxr-xr-x | videomv.pl | 7 | 
1 files changed, 7 insertions, 0 deletions
| @@ -419,6 +419,13 @@ if (&is_symlink($real_new_path)) {          $new_director =~ tr@/@_@;          $new_director =~ s/[[:cntrl:]]//; +        my @new_directors = split / *, */, $new_director; +        die "Can't find a suitable director.\n" unless @new_directors; +        my $lastdir = pop @new_directors; +        $new_director = join ", ", @new_directors; +        $new_director .= " & " if @new_directors; +        $new_director .= $lastdir; +          # Create directory if it doesn't exist          my $new_dirname = catfile ($directors, $new_director);          unless (-d $new_dirname) { | 
