blob: ddb591f795cd306bbf3bf9091321c261f51c15d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use strict;
use warnings;
print "1..1\n";
sub ok
{
my ($no, $ok) = @_ ;
print "ok $no\n" if $ok ;
print "not ok $no\n" unless $ok ;
}
# The :gzip tags are tested in external.t.
eval "use IO::Zlib qw(foo bar)";
ok(1, $@ =~ /^IO::Zlib::import: 'foo bar' is illegal /);
|
