diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-02-21 01:27:20 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-21 17:33:54 +0000 |
| commit | fd9a0c678d0180b75a69f877966bca3e967e80e4 (patch) | |
| tree | cce124cc1d8552de4f8ae45469f8155acffe5bcc /lib/autouse.t | |
| parent | 12701bb8c47929758b7e06c7c84478ffa9064610 (diff) | |
| download | perl-fd9a0c678d0180b75a69f877966bca3e967e80e4.tar.gz | |
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
Diffstat (limited to 'lib/autouse.t')
| -rw-r--r-- | lib/autouse.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/autouse.t b/lib/autouse.t index b81a40f826..d4ca15a272 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"; |