From 4a02128048ba336d25ccdaf0a0da3e7a7bca1173 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 12 Sep 2011 06:28:09 -0700 Subject: =?UTF-8?q?Make=20tie=5Ffetch=5Fcount.t=20pass=20on=20=E2=80=98bro?= =?UTF-8?q?ken=E2=80=99=20platforms?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit by which I mean platforms on which some -X $file ops don’t work. --- t/op/tie_fetch_count.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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'; -- cgit v1.2.1