summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-01-10 20:51:24 +0100
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-01-10 20:51:24 +0100
commit869a38ba87e998889b27248f1595746c0e714170 (patch)
tree2bfc16aae0bf1f59543ea65a5b3ded1fa50b1089
parent209934e01e21ffbe5d7e25c7d72ceb221916ecc5 (diff)
support for multi-directors
-rwxr-xr-xvideomv.pl7
1 files changed, 7 insertions, 0 deletions
diff --git a/videomv.pl b/videomv.pl
index a21bc33..9ba34c5 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -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) {