On Wed, May 30, 2001 at 09:15:01AM -0500, Craig A. Berry wrote:
> The non-philosophical explanation is that File::Spec returns
> native-style file specs ('[.Text]Soundex.pm' ) and %INC is populated
> with Unix-style file specs ('Text/Soundex.pm' ) and obviously the
> two don't match when you compare them.
OH! Didn't know that. In that case, just do this:
--- autouse.t 2001/05/30 13:20:24
+++ autouse.t 2001/05/30 14:23:27
@@ -43,10 +48,9 @@
# Test that autouse's lazy module loading works. We assume that nothing
# involved in this test uses Test::Soundex, which is pretty safe.
-use File::Spec;
use autouse 'Text::Soundex' => qw(soundex);
-my $mod_file = File::Spec->catfile(qw(Text Soundex.pm));
+my $mod_file = 'Text/Soundex.pm';
ok( !exists $INC{$mod_file} );
ok( soundex('Basset'), 'B230' );
ok( exists $INC{$mod_file} );
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
If you got the wax out of your ears you could hear the twister picking up
the trailer park of your future!
