From 873660c5b6f3aee4faec3022aaf75c4ce5bb8f7a Mon Sep 17 00:00:00 2001
From: Tinny Ng <tng@apache.org>
Date: Tue, 25 Feb 2003 22:03:36 +0000
Subject: [PATCH] [Bug 12192] File named 'CVS' should be deleted
git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@174815 13f79535-47bb-0310-9956-ffa450edef68
---
scripts/packageSources.pl | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/scripts/packageSources.pl b/scripts/packageSources.pl
index 12d561696..c10b875a4 100644
--- a/scripts/packageSources.pl
+++ b/scripts/packageSources.pl
@@ -242,14 +242,16 @@ sub deleteCVSdirs {
# print $name, "\n";
next if $subcount == 0;
- ($dev,$ino,$mode,$nlink) = lstat($_);
- next unless -d _;
+ ($dev,$ino,$mode,$nlink) = lstat($_);
if ($localName =~ m/CVS/i) {
print ("Removing $name ...\n");
system("$RM -rf $name");
next;
}
+
+ next unless -d _;
+
chdir $_ || die "Cannot cd to $name";
&deleteCVSdirs($name,$nlink);
chdir '..';
--
GitLab