Change 34097 by [EMAIL PROTECTED] on 2008/07/01 14:34:21
Avoid using -> function call notation within test.pl, which is supposed
to keep to simple constructions to facilitate accurately testing the
core interpreter, which might be buggy.
Affected files ...
... //depot/perl/t/test.pl#80 edit
Differences ...
==== //depot/perl/t/test.pl#80 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#79~34091~ 2008-06-28 13:37:32.000000000 -0700
+++ perl/t/test.pl 2008-07-01 07:34:21.000000000 -0700
@@ -69,9 +69,7 @@
return unless @_;
my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
map { split /\n/ } @_;
- my $func = $TODO ? \&_print : \&_print_stderr;
- $func->(@mess);
-
+ $TODO ? _print(@mess) : _print_stderr(@mess);
}
sub diag {
End of Patch.
