This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/Sv_set: Fix to work with early perls
authorKarl Williamson <khw@cpan.org>
Tue, 9 Jul 2019 17:53:32 +0000 (11:53 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
You can't have a for () modifier after a statement, and need to use
numeric comparisions with $]

(cherry picked from commit 4ab672ea5af5ec2a1e561d02941b4582d68dad6c)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/Sv_set
dist/Devel-PPPort/t/Sv_set.t

index 78a8034..97533a6 100644 (file)
 =provides
 
 __UNDEFINED__
-
 SV_NOSTEAL
 sv_setsv_flags
 newSVsv_nomg
 
+=dontwarn
+
+sv_setsv_flags
+
 =implementation
 
 #if ( { VERSION >= 5.7.3 } && { VERSION < 5.8.7 } ) || ( { VERSION >= 5.9.0 } && { VERSION < 5.9.2 } )
@@ -172,8 +175,10 @@ ok($bar->x(), 'foobar');
 Devel::PPPort::TestSvSTASH_set($bar, 'bar');
 ok($bar->x(), 'hacker');
 
-if ( "$]" lt '5.007003' ) {
-    skip 'skip: no SV_NOSTEAL support', 0 for 1..10;
+if ( "$]" < '5.007003' ) {
+    for (1..10) {
+        skip 'skip: no SV_NOSTEAL support', 0;
+    }
 } else {
     ok(Devel::PPPort::Test_sv_setsv_SV_NOSTEAL());
 
index 26d9c58..aeb2c52 100644 (file)
@@ -61,8 +61,10 @@ ok($bar->x(), 'foobar');
 Devel::PPPort::TestSvSTASH_set($bar, 'bar');
 ok($bar->x(), 'hacker');
 
-if ( "$]" lt '5.007003' ) {
-    skip 'skip: no SV_NOSTEAL support', 0 for 1..10;
+if ( "$]" < '5.007003' ) {
+    for (1..10) {
+        skip 'skip: no SV_NOSTEAL support', 0;
+    }
 } else {
     ok(Devel::PPPort::Test_sv_setsv_SV_NOSTEAL());