Fix prototype to mimic built-in in perlsub examples

p4raw-id: //depot/perl@29037

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index 7a51e5c..4c7dcd6 100644 (file)
--- a/pod/perlsub.pod
+++ b/pod/perlsub.pod
@@ -1054,7 +1054,7 @@ corresponding built-in.
     sub myopen (*;$)        myopen HANDLE, $name
     sub mypipe (**)         mypipe READHANDLE, WRITEHANDLE
     sub mygrep (&@)         mygrep { /foo/ } $a, $b, $c
-    sub myrand ($)          myrand 42
+    sub myrand (;$)         myrand 42
     sub mytime ()           mytime
 
 Any backslashed prototype character represents an actual argument