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