time() resolution is full seconds

[p5sagit/p5-mst-13.2.git] / pod / perlutil.pod

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