diff options
author | Guilhem Moulin <guilhem.moulin@ens-lyon.org> | 2012-01-11 14:47:36 +0100 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@ens-lyon.org> | 2012-01-11 14:47:36 +0100 |
commit | db842af5629fce914a087df1ba536a63d4eaf87e (patch) | |
tree | ef780729b877c8ad8e0c29b406709e719dcfd55e | |
parent | 869a38ba87e998889b27248f1595746c0e714170 (diff) |
reverting support for multi-directorsvideomv
-rwxr-xr-x | videomv.pl | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -419,13 +419,6 @@ 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) { |