1 # Digest::MD5 2.07 and older used to trigger a core dump when
2 # passed an illegal file handle that failed to open.
8 $md5 = Digest::MD5->new;
14 print "not " unless $@ =~ /^Bad filehandle: FOO at/;
17 open(BAR, "no-existing-file.$$");
21 print "not " unless $@ =~ /^No filehandle passed at/;
24 open(BAR, ">no-existing-file.$$") || die;
28 print "not " unless $@ =~ /^Reading from filehandle failed at/;
32 unlink("no-existing-file.$$");