From 3cd0a11a1a8c5cc6b632f666275eeafcb6f5c950 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 13 Nov 2006 11:17:10 +0000 Subject: =?UTF-8?q?Parsing=20fix:=20it=20wasn't=20possible=20to=20call=20a?= =?UTF-8?q?=20function=20with=20a=20(=5F)=20prototype=20(that=20is,=20a=20?= =?UTF-8?q?function=20mimicing=20an=20unary=20op)=20without=20parentheses.?= =?UTF-8?q?=20Bug=20reported=20by=20=C3=86var=20Arnfj=C3=B6r=C3=B0=20Bjarm?= =?UTF-8?q?ason.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit p4raw-id: //depot/perl@29258 --- t/comp/uproto.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 't/comp') diff --git a/t/comp/uproto.t b/t/comp/uproto.t index b82a5a3e02..9b908eb54a 100644 --- a/t/comp/uproto.t +++ b/t/comp/uproto.t @@ -6,7 +6,7 @@ BEGIN { require "./test.pl"; } -plan(tests => 38); +plan(tests => 39); sub f($$_) { my $x = shift; is("@_", $x) } @@ -55,6 +55,7 @@ g("foo"); g($expected); $_ = $expected; g(); +g; undef $expected; &g; # $_ not passed { $expected = my $_ = "bar"; g() } -- cgit v1.2.1