diff options
author | Karl Williamson <khw@cpan.org> | 2019-11-02 21:18:03 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-11-22 06:49:03 -0700 |
commit | c6e41a0a54eceb66483226532b3eb8e032541e26 (patch) | |
tree | 5ca87c7cdcb5e22a3895f28cdd6d4aed04bee068 /dist/Devel-PPPort/parts/inc/call | |
parent | 8d83133d4092939786340151d2e2c2790fc72ec9 (diff) | |
download | perl-c6e41a0a54eceb66483226532b3eb8e032541e26.tar.gz |
D:P: Change to use modern skip functionality
The new skip() has a count of tests. Previously you had to loop
yourself.
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; } { |