--- .data/save_perm.pl	2001/11/21 10:15:15	1.4
+++ .data/save_perm.pl	2001/11/21 10:16:13	1.5
@@ -6,7 +6,7 @@
 
 while (@dirs) {
 	my $curr_dir=shift @dirs;
-	opendir(DIR,$curr_dir) || die "opendir: $!";
+	opendir(DIR,$curr_dir) || warn "opendir: $!";
 	my @ignore = ('.', '..', 'CVS');
 	if (-f "$curr_dir/.cvsignore") {
 		open(I,"$curr_dir/.cvsignore");