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/magic | |
| 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/magic')
| -rw-r--r-- | dist/Devel-PPPort/parts/inc/magic | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/dist/Devel-PPPort/parts/inc/magic b/dist/Devel-PPPort/parts/inc/magic index bf1a2f391b..9a4f31af1d 100644 --- a/dist/Devel-PPPort/parts/inc/magic +++ b/dist/Devel-PPPort/parts/inc/magic @@ -624,9 +624,7 @@ ok(Devel::PPPort::sv_magic_portable($foo)); ok($foo eq 'bar'); if ( "$]" < '5.007003' ) { - for (1..22) { - skip 'skip: no SV_NOSTEAL support', 0; - } + skip 'skip: no SV_NOSTEAL support', 22; } else { tie my $scalar, 'TieScalarCounter', 10; my $fetch = $scalar; |