1N/Aprint "1..2\n";

1N/A

1N/Ause Digest::MD5 ();

1N/A

1N/A$md5 = Digest::MD5->new;

1N/A

1N/Aeval {

1N/A use vars qw(*FOO);

1N/A $md5->addfile(*FOO);

1N/A};

1N/Aprint "not " unless $@ =~ /^Bad filehandle: FOO at/;

1N/Aprint "ok 1\n";

1N/A

1N/Aopen(BAR, "no-existing-file.$$");

1N/Aeval {

1N/A $md5->addfile(*BAR);

1N/A};

1N/Aprint "not " unless $@ =~ /^No filehandle passed at/;

1N/Aprint "ok 2\n";