X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FLib.pm;h=7b2973c1336f8fabc8bf48e6f65b15f937a54569;hp=39f96804de5bc2e833217986ce5231443162f7f3;hb=3ae3b7557db4829ebfc6f580ceac30376717db6a;hpb=375af98436b4cea9b325ce2aa00408737ac76bb0

diff --git a/lib/BackupPC/Lib.pm b/lib/BackupPC/Lib.pm
index 39f9680..7b2973c 100644
--- a/lib/BackupPC/Lib.pm
+++ b/lib/BackupPC/Lib.pm
@@ -29,7 +29,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0_CVS, released 8 Feb 2004.
+# Version 2.1.0_CVS, released 13 Mar 2004.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -462,14 +462,17 @@ sub RmTreeQuiet
 	#
 	if ( !unlink($root) ) {
             if ( -d $root ) {
-                my $d = DirHandle->new($root)
-                  or print(STDERR "Can't read $pwd/$root: $!");
-                @files = $d->read;
-                $d->close;
-                @files = grep $_!~/^\.{1,2}$/, @files;
-                $bpc->RmTreeQuiet("$pwd/$root", \@files);
-                chdir($pwd);
-                rmdir($root) || rmdir($root);
+                my $d = DirHandle->new($root);
+		if ( !defined($d) ) {
+		    print(STDERR "Can't read $pwd/$root: $!\n");
+		} else {
+		    @files = $d->read;
+		    $d->close;
+		    @files = grep $_!~/^\.{1,2}$/, @files;
+		    $bpc->RmTreeQuiet("$pwd/$root", \@files);
+		    chdir($pwd);
+		    rmdir($root) || rmdir($root);
+		}
             } else {
                 unlink($root) || unlink($root);
             }