From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 21 Feb 2007 09:27:20 +0000 (-0800)
Subject: Re: [PATCH] Test with Errno in autouse.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd9a0c678d0180b75a69f877966bca3e967e80e4;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Test with Errno in autouse.t
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <619324.6794.qm@web30207.mail.mud.yahoo.com>

p4raw-id: //depot/perl@30376
---

diff --git a/lib/autouse.t b/lib/autouse.t
index b81a40f..d4ca15a 100644
--- 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";