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