print "1..2\n"; | |
use Digest::MD5 (); | |
$md5 = Digest::MD5->new; | |
eval { | |
use vars qw(*FOO); | |
$md5->addfile(*FOO); | |
}; | |
print "not " unless $@ =~ /^Bad filehandle: FOO at/; | |
print "ok 1\n"; | |
open(BAR, "no-existing-file.$$"); | |
eval { | |
$md5->addfile(*BAR); | |
}; | |
print "not " unless $@ =~ /^No filehandle passed at/; | |
print "ok 2\n"; |