diff options
| author | Todd Rinaldo <toddr@cpan.org> | 2020-07-30 17:31:41 -0500 |
|---|---|---|
| committer | Todd Rinaldo <toddr@cpan.org> | 2020-07-30 17:31:53 -0500 |
| commit | 819e1883356eee77ec1fb6bec37d8a160a85ee37 (patch) | |
| tree | 64d2cdef245af3fa178b2e0cd712abeab7677cfc /dist/Safe | |
| parent | d1bce42ce4c2b5874263b5bc6c4c407812e344b3 (diff) | |
| download | perl-819e1883356eee77ec1fb6bec37d8a160a85ee37.tar.gz | |
Use quoted strings to compare 5.031006 in Safe.pm
Diffstat (limited to 'dist/Safe')
| -rw-r--r-- | dist/Safe/Safe.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm index 3ca164225e..2cd6259576 100644 --- a/dist/Safe/Safe.pm +++ b/dist/Safe/Safe.pm @@ -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; |