[perl #75904] \$ prototype does not make a unary function

[perl #75904] \$ prototype does not make a unary function

This fixes this problem :
  $ perl -le' sub foo($) { print "foo" }; foo $_, exit'
  foo
  $ perl -le' sub foo(\$) { print "foo" }; foo $_, exit'
  Too many arguments for main::foo at -e line 1, at EOF
  Execution of -e aborted due to compilation errors.

for all those prototypes:
  *
  \sigil
  \[...]
  ;$
  ;*
  ;\sigil
  ;\[...]