This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/uv: Use > to compare $]
authorKarl Williamson <khw@cpan.org>
Tue, 9 Jul 2019 16:46:32 +0000 (10:46 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
(cherry picked from commit a54aebf6bde1ad7510f02a2e83b35658973c8994)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/uv
dist/Devel-PPPort/t/uv.t

index b8a307f..00d8265 100644 (file)
@@ -376,7 +376,7 @@ my_strnlen(s, max)
 
 =tests plan => 11
 
-BEGIN { require warnings if "$]" gt '5.006' }
+BEGIN { require warnings if "$]" > '5.006' }
 
 ok(&Devel::PPPort::sv_setuv(42), 42);
 ok(&Devel::PPPort::newSVuv(123), 123);
index 0d27f87..96fd8ec 100644 (file)
@@ -48,7 +48,7 @@ bootstrap Devel::PPPort;
 
 package main;
 
-BEGIN { require warnings if "$]" gt '5.006' }
+BEGIN { require warnings if "$]" > '5.006' }
 
 ok(&Devel::PPPort::sv_setuv(42), 42);
 ok(&Devel::PPPort::newSVuv(123), 123);