From 64efc51eb1db9487252eae268597651db34ece65 Mon Sep 17 00:00:00 2001 From: Wayne Davison Date: Fri, 13 May 2005 00:25:25 +0000 Subject: [PATCH] Fixed a couple problems in restore_cvsdir(). --- verify-patches | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/verify-patches b/verify-patches index 8245bdf..28d37b9 100755 --- a/verify-patches +++ b/verify-patches @@ -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 -- 2.34.1