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] );