X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fautouse.t;h=d4ca15a272e0b927f8f0ff0bf78d05705280545d;hb=50109ad0d28b27abe5ee82def070e14b4526321c;hp=cc7c41a3252616bc9058432164f02793d1e8b6b5;hpb=78cd8b71ec0d7665c422181192afa2819a5d887d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/autouse.t b/lib/autouse.t
index cc7c41a..d4ca15a 100644
--- a/lib/autouse.t
+++ b/lib/autouse.t
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config;
-    if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+    if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
 	print "1..0 # Skip -- Perl configured without List::Util module\n";
 	exit 0;
     }
@@ -51,13 +51,12 @@ use autouse 'Carp' => qw(carp croak);
 }
 
 
-# Test that autouse's lazy module loading works.  We assume that nothing
-# involved in this test uses Text::Soundex, which is pretty safe.
-use autouse 'Text::Soundex' => qw(soundex);
+# Test that autouse's lazy module loading works.
+use autouse 'Errno' => qw(EPERM);
 
-my $mod_file = 'Text/Soundex.pm'; # just fine and portable for %INC
+my $mod_file = 'Errno.pm';   # just fine and portable for %INC
 ok( !exists $INC{$mod_file} );
-ok( soundex('Basset'), 'B230' );
+ok( EPERM ); # test if non-zero
 ok( exists $INC{$mod_file} );
 
 use autouse Env => "something";