diff options
Diffstat (limited to 'dist/Devel-PPPort/parts/inc/call')
-rw-r--r-- | dist/Devel-PPPort/parts/inc/call | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/dist/Devel-PPPort/parts/inc/call b/dist/Devel-PPPort/parts/inc/call index bdfe812f06..678df8cadf 100644 --- a/dist/Devel-PPPort/parts/inc/call +++ b/dist/Devel-PPPort/parts/inc/call @@ -412,9 +412,7 @@ if ("$]" >= '5.007003' or ("$]" >= '5.006001' and "$]" < '5.007')) { ok(ref($@), 'False', 'check that $@ contains False object'); ok("$@", "$false", 'check we got the expected object'); } else { - for (1..7) { - skip 'skip: no support for references in $@', 0; - } + skip 'skip: no support for references in $@', 7; } ok(eval { Devel::PPPort::eval_sv('die', 0); 1 }); @@ -440,9 +438,7 @@ if ("$]" >= '5.007003' or ("$]" >= '5.006001' and "$]" < '5.007')) { ok(ref($@), 'False', 'check that $@ contains False object'); ok("$@", "$false", 'check we got the expected object'); } else { - for (1..7) { - skip 'skip: no support for references in $@', 0; - } + skip 'skip: no support for references in $@', 7; } { |