projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
12701bb
)
Re: [PATCH] Test with Errno in autouse.t
author
Jerry D. Hedden
<jdhedden@cpan.org>
Wed, 21 Feb 2007 09:27:20 +0000
(
01:27
-0800)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Wed, 21 Feb 2007 17:33:54 +0000
(17:33 +0000)
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <619324.6794.qm@web30207.mail.mud.yahoo.com>
p4raw-id: //depot/perl@30376
lib/autouse.t
patch
|
blob
|
history
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";