Fixed a couple problems in restore_cvsdir().
authorWayne Davison <wayned@samba.org>
Fri, 13 May 2005 00:25:25 +0000 (00:25 +0000)
committerWayne Davison <wayned@samba.org>
Fri, 13 May 2005 00:25:25 +0000 (00:25 +0000)
verify-patches

index 8245bdf..28d37b9 100755 (executable)
@@ -263,18 +263,20 @@ sub restore_cvsdir
     return unless $has_dependencies;
     $has_dependencies = 0;
 
+    chdir('cvsdir') or die $!;
     foreach (glob('*.~[1-9]~'), glob('*/*.~[1-9]~')) {
        my $fn;
        ($fn = $_) =~ s/\.~1~$//;
        if ($fn eq $_) {
            unlink($_);
-       } elsif (-r $fn) {
-           rename($_,  $fn);
+       } elsif (-r $_) {
+           rename($_, $fn);
        } else {
            unlink($_);
            unlink($fn);
        }
     }
+    chdir('..') or die $!;
 }
 
 sub usage