diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 08:41:38 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 11:27:21 +0200 |
| commit | 7b903762ad0ebd5d0459692ad5c081c69a3c0808 (patch) | |
| tree | 6e64cf76feca7527bf3a0b2ab962572023e5887e /t/op/inccode.t | |
| parent | a34ce875bf70f00f7af4a549f8c1ff0f4469f7fb (diff) | |
| download | perl-7b903762ad0ebd5d0459692ad5c081c69a3c0808.tar.gz | |
Remove code specific to MacOS Classic from core tests
Diffstat (limited to 't/op/inccode.t')
| -rw-r--r-- | t/op/inccode.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/inccode.t b/t/op/inccode.t index 60c3581dbd..7edb34522f 100644 --- a/t/op/inccode.t +++ b/t/op/inccode.t @@ -196,7 +196,7 @@ $ret ||= do 'abc.pl'; is( $ret, 'abc', 'do "abc.pl" sees return value' ); { - my $filename = $^O eq 'MacOS' ? ':Foo:Foo.pm' : './Foo.pm'; + my $filename = './Foo.pm'; #local @INC; # local fails on tied @INC my @old_INC = @INC; # because local doesn't work on tied arrays @INC = sub { $filename = 'seen'; return undef; }; |