From 52fd47abd1cd7b1764a18b6bb6c69e1454952725 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 15 Oct 2002 13:01:37 +0000 Subject: [PATCH] some detail changes --- perl/USDB.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/perl/USDB.pm b/perl/USDB.pm index cba7ddb9..4957539e 100644 --- a/perl/USDB.pm +++ b/perl/USDB.pm @@ -133,6 +133,8 @@ sub load for (@_) { my $ofn = shift; + return "Cannot find $ofn" unless -r $ofn; + # conditionally handle compressed files (don't cha just lurv live code, this is # a rave from the grave and is "in memoriam Flossie" the ICT 1301G I learnt on. # {for pedant computer historians a 1301G is an ICT 1301A that has been @@ -141,7 +143,7 @@ sub load if ($nfn =~ /.gz$/i) { my $gz; eval qq{use Compress::Zlib; \$gz = gzopen(\$ofn, "rb")}; - return "Cannot read compressed files $@" if $@; + return "Cannot read compressed files $@ $!" if $@ || !$gz; $nfn =~ s/.gz$//i; my $of = new IO::File ">$nfn" or return "Cannot write to $nfn $!"; my ($l, $buf); -- 2.43.0