6 # Digest::MD5 2.07 and older used to trigger a core dump when
7 # passed an illegal file handle that failed to open.
13 $md5 = Digest::MD5->new;
19 print "not " unless $@ =~ /^Bad filehandle: FOO/;
22 open(BAR, "none-existing-file.$$");
25 print "not " unless $md5->hexdigest eq "d41d8cd98f00b204e9800998ecf8427e";