diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-05-30 16:24:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 22:09:49 +0000 |
| commit | e5e86a04d41b47e59c9768a63040ce5ef574d6c7 (patch) | |
| tree | 52c89cc360a7e8e2a70c836fb5f1a70e2c93c0c6 /t | |
| parent | 6b927632bbda90c3330f7b638ce0eed155df0b2f (diff) | |
| download | perl-e5e86a04d41b47e59c9768a63040ce5ef574d6c7.tar.gz | |
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
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/autouse.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t index ecc1289167..0a2d68003f 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} ); |