From: Frank Wiegand <frank.wiegand@gmail.com>
Date: Thu, 8 Apr 2010 20:16:30 +0000 (+0200)
Subject: fix a2p example
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=944d48f78fffdf92a1710164726d48604225142c;p=p5sagit%2Fp5-mst-13.2.git

fix a2p example
---

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;
     }