At 03:24 PM 5/30/2001 +0100, Michael G Schwern wrote:
>On Wed, May 30, 2001 at 09:15:01AM -0500, Craig A. Berry wrote:
>> %INC is populated with Unix-style file specs ('Text/Soundex.pm' )
>OH! Didn't know that. In that case, just do this:
That works fine for us, thanks.
>--- 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} );
