X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlutil.pod;h=453248d2497ceb6b4cb3a76afe6df1e99ced4817;hb=8162142bfe8ad55439ff878b28c85e654d9a67d3;hp=2d9b4ad2adb0378de2780beeb63d33ac347aeb7b;hpb=e10204135b763e864169cd1f19037fc2f8c37385;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlutil.pod b/pod/perlutil.pod
index 2d9b4ad..453248d 100644
--- 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;
     }