Fix Sort::Naturally error output

This commit is contained in:
Duncan Ferguson 2019-01-14 20:05:27 +00:00
parent 7095383762
commit ee3677dcd9

View file

@ -341,8 +341,6 @@ trap {
# $trap->quiet("No errors getting 'sort'");
is( $trap->leaveby, 'return', 'returned ok' );
is( $trap->die, undef, 'returned ok' );
#
$sort = $base->sort;
is( ref($sort), 'CODE', "got results from sort" );
@sorted = $sort->( 4, 8, 1, 5, 3 );
@expected = ( 1, 3, 4, 5, 8 );