tng 2003/02/25 14:03:37
Modified: c/scripts packageSources.pl
Log:
[Bug 12192] File named 'CVS' should be deleted
Revision Changes Path
1.47 +4 -2 xml-xerces/c/scripts/packageSources.pl
Index: packageSources.pl
===================================================================
RCS file: /home/cvs/xml-xerces/c/scripts/packageSources.pl,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- packageSources.pl 23 Jul 2002 19:41:40 -0000 1.46
+++ packageSources.pl 25 Feb 2003 22:03:36 -0000 1.47
@@ -242,14 +242,16 @@
# 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 '..';
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
