fix a2p example

diff --git a/pod/perlutil.pod b/pod/perlutil.pod
index 2d9b4ad..453248d 100644 (file)
--- a/pod/perlutil.pod
+++ b/pod/perlutil.pod
@@ -89,7 +89,7 @@ on the simple F<awk> script C<{print $2}> will produce a Perl program
 based around this code:
 
     while (<>) {
-        ($Fld1,$Fld2) = split(/[:\n]/, $_, 9999);
+        ($Fld1,$Fld2) = split(/[:\n]/, $_, -1);
         print $Fld2;
     }