This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use quoted strings to compare 5.031006 in Safe.pm
authorTodd Rinaldo <toddr@cpan.org>
Thu, 30 Jul 2020 22:31:41 +0000 (17:31 -0500)
committerTodd Rinaldo <toddr@cpan.org>
Thu, 30 Jul 2020 22:31:53 +0000 (17:31 -0500)
dist/Safe/Safe.pm

index 3ca1642..2cd6259 100644 (file)
@@ -67,7 +67,7 @@ require utf8;
 # particular code points don't cause it to load.
 # (Swashes are cached internally by perl in PL_utf8_* variables
 # independent of being inside/outside of Safe. So once loaded they can be)
-do { my $a = pack('U',0x100); utf8->import; require 'utf8_heavy.pl' if $] < 5.031006 };
+do { my $a = pack('U',0x100); utf8->import; require 'utf8_heavy.pl' if "$]" < "5.031006" };
 # now we can safely include utf8::SWASHNEW in $default_share defined below.
 
 my $default_root  = 0;