Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
t/vsearch.t - port to perl-5.12 and earlier
5.12 and earlier require that the first arg handed to splice is an array
  • Loading branch information
sisyphus committed Jan 6, 2015
1 parent 1095c3b commit f479008
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion t/vsearch.t
Expand Up @@ -482,7 +482,7 @@ for my $mode (

while( @$inputs ) {

my ( $idx, $offset, $exp ) = splice( $inputs, 0, 3 );
my ( $idx, $offset, $exp ) = splice( @$inputs, 0, 3 );
my $value = $so->{x}->at($idx) + $offset;

is ( $got = ( vsearch( $value, $so->{x}, { mode => $mode } )->sclr), $exp, "$label: ($idx, $offset)" );
Expand Down

0 comments on commit f479008

Please sign in to comment.