Only warn about directories that has not yet been added to the CVS.

CVS version numbers

remove_stale.pl: 1.2 -> 1.3

1 files changed, 5 insertions, 2 deletions

diff --git a/remove_stale.pl b/remove_stale.pl
index 6400d18bb78..60ebd76d9d5 100755
--- a/remove_stale.pl
+++ b/remove_stale.pl
@@ -50,8 +50,11 @@ sub recurse
 	closedir THISDIR;
 
 	# Read through the CVS/Entries file.
-	open ENTRIES, "$directory/CVS/Entries"
-		or die "Not a CVS directory: $directory\n";
+	if (!open ENTRIES, "$directory/CVS/Entries")
+	{
+		warn "Not a CVS directory, ignoring $directory\n";
+		return 0;
+	}
 
 	my @wmlfiles = ();
 	my @htmlfiles = ();