diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-09-12 06:28:09 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-12 06:28:09 -0700 |
| commit | 4a02128048ba336d25ccdaf0a0da3e7a7bca1173 (patch) | |
| tree | aba00f9b29c0270fb606d7d641ac0ac0cefb36e3 /t/op/tie_fetch_count.t | |
| parent | c96083ea8213cd642231f3117ac165e6c23b264a (diff) | |
| download | perl-4a02128048ba336d25ccdaf0a0da3e7a7bca1173.tar.gz | |
Make tie_fetch_count.t pass on ‘broken’ platforms
by which I mean platforms on which some -X $file ops don’t work.
Diffstat (limited to 't/op/tie_fetch_count.t')
| -rw-r--r-- | t/op/tie_fetch_count.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index afa3265802..6815d62acf 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -126,7 +126,15 @@ for (split //, 'rwxoRWXOezsfdpSbctugkTBMAC') { $var = *dummy; $dummy = $var; $count = 0; $dummy = eval "-$_ \$var"; check_count "-$_ \$tied_glob"; $var = *dummy; $dummy = $var; $count = 0; - $dummy = eval "-$_ \\\$var"; check_count "-$_ \\\$tied_glob"; + if (eval "\$dummy = -$_ \\\$var; 1") { + check_count "-$_ \\\$tied_glob"; + } + else { + $count = 0; + SKIP: { + skip "-$_ not supported on this platform?", 1; + } + } } $dummy = -l $var ; check_count '-l'; |