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/defins.t | |
| parent | a34ce875bf70f00f7af4a549f8c1ff0f4469f7fb (diff) | |
| download | perl-7b903762ad0ebd5d0459692ad5c081c69a3c0808.tar.gz | |
Remove code specific to MacOS Classic from core tests
Diffstat (limited to 't/op/defins.t')
| -rw-r--r-- | t/op/defins.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/defins.t b/t/op/defins.t index fd073cf7f8..1e8beb07b5 100644 --- a/t/op/defins.t +++ b/t/op/defins.t @@ -34,7 +34,7 @@ if ($^O eq 'VMS') { } $wanted_filename = $unix_mode ? '0' : '0.'; -$saved_filename = $^O eq 'MacOS' ? ':0' : './0'; +$saved_filename = './0'; cmp_ok($warns,'==',0,'no warns at start'); @@ -81,7 +81,7 @@ while ($where{$seen} = <FILE>) cmp_ok($seen,'==',1,'seen in hash while()'); close FILE; -opendir(DIR,($^O eq 'MacOS' ? ':' : '.')); +opendir(DIR,'.'); ok(defined(DIR),'opened current directory'); $seen = 0; while (my $name = readdir(DIR)) |