Skip to content

Commit

Permalink
fix string comparisons with $] to use numeric comparison instead
Browse files Browse the repository at this point in the history
This ensures that the comparisons will still work when Perl's major
version changes to anything greater than 9.
  • Loading branch information
book committed Dec 14, 2024
1 parent 44eb0ab commit d7c5975
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions t/from-hash.t
Original file line number Diff line number Diff line change
Expand Up @@ -43,7 +43,7 @@ for my $string (10, '>= 2, <= 9, != 7') {

SKIP: {
skip "Can't tell v-strings from strings until 5.8.1", 1
unless $] gt '5.008';
unless $] > 5.008;
my $string_hash = {
Left => 10,
Shared => '= 2',
Expand Down Expand Up @@ -87,7 +87,7 @@ SKIP: {

SKIP: {
skip "Can't tell v-strings from strings until 5.8.1", 2
unless $] gt '5.008';
unless $] > 5.008;
my $string_hash = {
Left => 10,
Shared => v50.44.60,
Expand Down

0 comments on commit d7c5975

Please sign in to comment.