Re: [PATCH perl@10298] fix extutils.t and autouse.t for VMS

Message-ID: <20010530152420.H670@blackrider.blackstar.co.uk>

p4raw-id: //depot/perl@10331

diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t
index ecc1289..0a2d680 100644 (file)
--- a/t/pragma/autouse.t
+++ b/t/pragma/autouse.t
@@ -48,11 +48,9 @@ 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 File::Spec;
 use autouse 'Text::Soundex' => qw(soundex);
 
-my $mod_file = File::Spec->catfile(qw(Text Soundex.pm));
-$mod_file = VMS::Filespec::unixify($mod_file) if $^O eq 'VMS';
+my $mod_file = 'Text/Soundex.pm'; # just fine and portable for %INC
 ok( !exists $INC{$mod_file} );
 ok( soundex('Basset'), 'B230' );
 ok( exists $INC{$mod_file} );