summaryrefslogtreecommitdiff
path: root/t/op/tie_fetch_count.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/tie_fetch_count.t')
-rw-r--r--t/op/tie_fetch_count.t14
1 files changed, 4 insertions, 10 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t
index 159712021a..ed070e0a2c 100644
--- a/t/op/tie_fetch_count.t
+++ b/t/op/tie_fetch_count.t
@@ -7,7 +7,7 @@ BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 286);
+ plan (tests => 283);
}
use strict;
@@ -125,16 +125,10 @@ for (split //, 'rwxoRWXOezsfdpSbctugkTBMAC') {
# Make $var hold a glob:
$var = *dummy; $dummy = $var; $count = 0;
$dummy = eval "-$_ \$var"; check_count "-$_ \$tied_glob";
+ next if /[guk]/;
$var = *dummy; $dummy = $var; $count = 0;
- if (eval "\$dummy = -$_ \\\$var; 1") {
- check_count "-$_ \\\$tied_glob";
- }
- else {
- $count = 0;
- SKIP: {
- skip "-$_ not supported on this platform?", 1;
- }
- }
+ eval "\$dummy = -$_ \\\$var";
+ check_count "-$_ \\\$tied_glob";
}
$dummy = -l $var ; check_count '-l';