diff options
author | Guilhem Moulin <guilhem.moulin@ens-lyon.org> | 2012-02-17 18:06:22 +0100 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@ens-lyon.org> | 2012-02-17 18:06:22 +0100 |
commit | afa99ef07d74e993ac86811e24177f5818aa855b (patch) | |
tree | 106d0c3b6f53c1cc96ac84d9938647af7e4a8a3e | |
parent | 498c263c826d8a84cfe525efd5f779f79a58f087 (diff) |
remove empty directories
-rwxr-xr-x | videomv.pl | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -542,6 +542,11 @@ if (defined $old_symlink) { &perform ("Deleting old symlink... ", unlink $old_symlink); } +open my $DIR, catdir($directors, $old_director) or die "Can't open: $!"; +if (scalar(grep( !/^\.\.?$/, readdir(DIR)) == 0)) { + &perform ("Removing empty dir... ", rmdir catdir($directors, $old_director)); +} +closedir DIR or die "Can't close: $!"; &perform ("Creating new symlink... ", symlink catfile(updir(),'DIRECTORS',$new_director,$new_filename), @@ -635,6 +640,10 @@ sub revert { $actions[0] = 'Deleting'. $1; $rev = unlink $new_symlink; } + elsif ($actions[0] =~ /^Removing( empty dir.*)/) { + $actions[0] = 'Creating'. $1; + $rev = mkdir catdir($directors, $old_director); + } else { print STDERR "Error: unknown action `" .$actions[0]. "'!\n"; $actions[0] = undef; |