1print "1..2\n"; 2 3use Digest::MD5 (); 4 5$md5 = Digest::MD5->new; 6 7eval { 8 use vars qw(*FOO); 9 $md5->addfile(*FOO); 10}; 11print "not " unless $@ =~ /^Bad filehandle: FOO at/; 12print "ok 1\n"; 13 14open(BAR, "no-existing-file.$$"); 15eval { 16 $md5->addfile(*BAR); 17}; 18print "not " unless $@ =~ /^No filehandle passed at/; 19print "ok 2\n"; 20