4 unless(grep /blib/, @INC) {
7 @INC = qw(: ::lib ::macos:lib);
18 print "not " unless @Errno::EXPORT_OK;
20 die unless @Errno::EXPORT_OK;
22 $err = $Errno::EXPORT_OK[0];
23 $num = &{"Errno::$err"};
25 print "not " unless &{"Errno::$err"} == $num;
29 print "not " unless $!{$err};
33 print "not " if $!{$err};
36 $s1 = join(",",sort keys(%!));
37 $s2 = join(",",sort @Errno::EXPORT_OK);
41 my @s2 = @Errno::EXPORT_OK;
47 print "# These are only in \%!\n";
48 print "# ",join(" ",map { "'$_'" } keys %s1),"\n";
49 print "# These are only in \@EXPORT_OK\n";
50 print "# ",join(" ",map { "'$_'" } keys %s2),"\n";