diff --git a/scripts/packageSources.pl b/scripts/packageSources.pl
index 12d561696a7a37a5c4d4c4f322d2f50c1ecc63ca..c10b875a4f1273b811e9da2223ef84759d8dc045 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 '..';