diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-26 13:02:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-26 13:02:07 +0000 |
| commit | 0bad50db39116e5a02ec9776c186ce3ee09a9b2d (patch) | |
| tree | 5eaf6d7501cb1b6af727c96a75f0ad2a39ec5709 /lib/File | |
| parent | 89aec743e18bc6ebc8fe067d7c780485893d0a8c (diff) | |
| download | perl-0bad50db39116e5a02ec9776c186ce3ee09a9b2d.tar.gz | |
Manual integration error in #12235.
p4raw-id: //depot/perl@12237
Diffstat (limited to 'lib/File')
| -rwxr-xr-x | lib/File/DosGlob.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/DosGlob.t b/lib/File/DosGlob.t index d55c00ef1a..4017fabb8d 100755 --- a/lib/File/DosGlob.t +++ b/lib/File/DosGlob.t @@ -17,9 +17,9 @@ use File::DosGlob 'glob'; # test if $_ takes as the default my $expected; if ($^O eq 'MacOS') { - $expected = $_ = ":lib:a*.t"; + $expected = $_ = ":op:a*.t"; } else { - $expected = $_ = "lib/a*.t"; + $expected = $_ = "op/a*.t"; } $_ = "op/a*.t"; my @r = glob; |