Incorrect tests - &banned5 is using inherited @_,
authorPeter Martini <PeterCMartini@GMail.com>
Thu, 11 Oct 2012 09:09:37 +0000 (05:09 -0400)
committerPeter Martini <PeterCMartini@GMail.com>
Wed, 17 Oct 2012 20:36:16 +0000 (16:36 -0400)
needs to be &banned5()

t/comp/namedproto.t

index 72ebb9f..5b11452 100644 (file)
@@ -304,14 +304,14 @@ no_warnings("invalid slurpy parameters");
     $failed = !eval 'banned5(); 1';
     ok($failed, "An alias to \$#_ dies in execution - () syntax");
     like($@,$err, "Died for the right reason");
-    $failed = !eval '&banned5; 1';
+    $failed = !eval '&banned5(); 1';
     ok($failed, "An alias to \$#_ dies in execution - & syntax");
     like($@,$err, "Died for the right reason");
     @normal = qw(1 2 3);
     *globb = *normal;
     $legal = eval 'banned5(); 1';
     ok($legal, "globb is fine again - ()");
-    $legal = eval '&banned5; 1';
+    $legal = eval '&banned5(); 1';
     ok($legal, "globb is fine again - &");
 }