This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
documentation typo for Text::Wrap
[perl5.git]
/
lib
/
autouse.t
diff --git
a/lib/autouse.t
b/lib/autouse.t
index
b81a40f
..
d4ca15a
100644
(file)
--- a/
lib/autouse.t
+++ b/
lib/autouse.t
@@
-56,7
+56,7
@@
use autouse 'Errno' => qw(EPERM);
my $mod_file = 'Errno.pm'; # just fine and portable for %INC
ok( !exists $INC{$mod_file} );
-ok( EPERM
, 1 );
+ok( EPERM
); # test if non-zero
ok( exists $INC{$mod_file} );
use autouse Env => "something";