From b83ce39513f2a31a30fd09a2255e7b91af4222dc Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Sat, 25 Apr 2026 15:05:49 +0200 Subject: [PATCH] compare $] as a number $] is a number and must be compared using numeric operators. (String comparison would consider `10.001 lt '5.018'` to be true.) --- t/algorithm_odometer_tiny.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/algorithm_odometer_tiny.t b/t/algorithm_odometer_tiny.t index b7c6603..93163bf 100755 --- a/t/algorithm_odometer_tiny.t +++ b/t/algorithm_odometer_tiny.t @@ -127,7 +127,7 @@ subtest 'undefs' => sub { plan tests=>3; SKIP: { skip "need Perl >= v5.18 for overloaded <> in list context", - 2 if $] lt '5.018'; # [perl #47119] + 2 if $] < 5.018; # [perl #47119] my $odo1 = Algorithm::Odometer::Tiny->new( ['foo','bar'], [3..5] ); is_deeply [<$odo1>], ["foo3", "foo4", "foo5", "bar3", "bar4", "bar5"], 'list context <> ::Tiny'; my $odo2 = Algorithm::Odometer::Gray->new( ['a','b','c'],[1,2] );