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