--- /tmp/File.pm	2007-09-23 17:32:24.000000000 -0500
+++ File.pm	2007-09-23 17:31:45.000000000 -0500
@@ -155,7 +155,11 @@
     unless ($dig) {
         my $sha1 = Digest::SHA1->new;
         my $path = $self->fullpath;
-        open (my $fh, $path) or die "Couldn't open $path: $!\n";
+        my $fh;
+        if(!open ($fh, $path)) {
+            warn "Couldn't open $path: $!\n";
+            return '';
+        }
         binmode($fh);
         $sha1->addfile($fh);
         close($fh);