show path with open error
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 22 Oct 2011 10:50:20 +0000 (12:50 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 22 Oct 2011 10:50:20 +0000 (12:50 +0200)
user-md5sum.pl

index e120037..730ed4a 100755 (executable)
@@ -13,7 +13,7 @@ die $! unless -d $dir;
 
 my $path = "$dir/.md5";
 
-die $! unless -r $path;
+die "$path: $!\n" unless -r $path;
 
 my %h;
 tie %h, "TokyoCabinet::HDB", $path || die $!;