From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 1 Jul 2008 14:34:21 +0000 (+0000)
Subject: Avoid using -> function call notation within test.pl, which is supposed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44826442183f4168cc7d203064d184977258d097;p=p5sagit%2Fp5-mst-13.2.git

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.

p4raw-id: //depot/perl@34097
---

diff --git a/t/test.pl b/t/test.pl
index 2caf2e8..d697f77 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -69,9 +69,7 @@ sub _diag {
     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 {