Parsing fix: it wasn't possible to call a function with a (_) prototype

[perl5.git] / t / comp / uproto.t

diff --git a/t/comp/uproto.t b/t/comp/uproto.t
index b82a5a3..9b908eb 100644 (file)
--- a/t/comp/uproto.t
+++ b/t/comp/uproto.t
@@ -6,7 +6,7 @@ BEGIN {
     require "./test.pl";
 }
 
     require "./test.pl";
 }
 

-plan(tests => 38);
+plan(tests => 39);

 
 sub f($$_) { my $x = shift; is("@_", $x) }
 
 
 sub f($$_) { my $x = shift; is("@_", $x) }
 


@@ -55,6 +55,7 @@ g("foo");
 g($expected);
 $_ = $expected;
 g();
 g($expected);
 $_ = $expected;
 g();

+g;

 undef $expected; &g; # $_ not passed
 { $expected = my $_ = "bar"; g() }
 
 undef $expected; &g; # $_ not passed
 { $expected = my $_ = "bar"; g() }