From: Michael G. Schwern <schwern@pobox.com>
Date: Wed, 30 May 2001 15:24:20 +0000 (+0100)
Subject: Re: [PATCH perl@10298] fix extutils.t and autouse.t for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5e86a04d41b47e59c9768a63040ce5ef574d6c7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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} );