p4raw-id: //depot/perl@7569
}
# test prototypes when they are evaled and there is a syntax error
+#
+# NOTE: evaled syntax errors mean scalar leaks
+#
for my $p ( "", qw{ () ($) ($@) ($%) ($;$) (&) (&\@) (&@) (%) (\%) (\@) } ) {
no warnings 'redefine';
my $eval = "sub evaled_subroutine $p { &void *; }";