Skip to content
Browse files

Simplify and broaden transpose type test.

  • Loading branch information...
1 parent 7dc6e2a commit 506321f458b9f9d196100f9b5e56ea6889c992f8 @colomon committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/List/Utils.pm
View
2 lib/List/Utils.pm
@@ -54,7 +54,7 @@ sub transpose(@list is copy) is export(:DEFAULT) {
gather {
while @list !~~ [] {
my @heads;
- if @list[0].WHAT.perl ~~ 'Int' {
+ if @list[0] ~~ Numeric {
@heads = @list.shift;
}
else {

0 comments on commit 506321f

Please sign in to comment.
Something went wrong with that request. Please try again.