diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-05-29 18:23:45 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 12:33:53 +0000 |
| commit | 2487403058374808c346479712397733bb789089 (patch) | |
| tree | e6d5bcd1da541f9b51acd77ee6e7221ed9803225 /t/pragma/autouse.t | |
| parent | 78eac027d0b109ebff3f99202cc1a91813238357 (diff) | |
| download | perl-2487403058374808c346479712397733bb789089.tar.gz | |
fix extutils.t and autouse.t for VMS
Message-Id: <a05100e01b73a21721dee@[192.168.56.153]>
p4raw-id: //depot/perl@10314
Diffstat (limited to 't/pragma/autouse.t')
| -rw-r--r-- | t/pragma/autouse.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t index 0120ed0899..3dc5483017 100644 --- a/t/pragma/autouse.t +++ b/t/pragma/autouse.t @@ -42,11 +42,12 @@ use autouse 'Carp' => qw(carp croak); # Test that autouse's lazy module loading works. We assume that nothing -# involved in this test uses Test::Soundex, which is pretty safe. +# 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'; ok( !exists $INC{$mod_file} ); ok( soundex('Basset'), 'B230' ); ok( exists $INC{$mod_file} ); |