diff options
| author | Frank Wiegand <frank.wiegand@gmail.com> | 2010-04-08 22:16:30 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-13 12:09:15 +0200 |
| commit | 944d48f78fffdf92a1710164726d48604225142c (patch) | |
| tree | 71f38f8566234068209fdefe6eb27acf6a5b9459 /pod/perlutil.pod | |
| parent | daeb922a13767cdbdeac0ab09127e170558c9798 (diff) | |
| download | perl-944d48f78fffdf92a1710164726d48604225142c.tar.gz | |
fix a2p example
Diffstat (limited to 'pod/perlutil.pod')
| -rw-r--r-- | pod/perlutil.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlutil.pod b/pod/perlutil.pod index 2d9b4ad2ad..453248d249 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; } |