| Subject: | Noisy tests (length() used on an @array) |
At some point, Perl decided to generate a warning when you use length()
on an array. The attached patch suppresses the warning, and does what I
believe is the intent of the code -- at any rate, all the tests pass.
| Subject: | MacPerl.patch |
--- MacPerl/MacPerl.old 2009-09-08 02:12:58.000000000 -0400
+++ MacPerl/MacPerl.pm 2012-07-21 12:12:22.000000000 -0400
@@ -182,7 +182,7 @@
print "Pick one of the following:\n";
}
- my $num = length @$options;
+ my $num = length scalar @$options;
for (0 .. $#{$options}) {
printf " [%${num}d] %s\n", $_, $options->[$_];
}