[perl #46019] Documentation for 'srand' has a problem in code snippet

From: ben@linuxgazette.net (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-5916-1191386029-1116.46019-75-0@perl.org>

p4raw-id: //depot/perl@32011

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 49df408..a037970 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -5870,7 +5870,7 @@ than the default seed.  Checksumming the compressed output of one or more
 rapidly changing operating system status programs is the usual method.  For
 example:
 
-    srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
+    srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip -f`);
 
 If you're particularly concerned with this, see the C<Math::TrulyRandom>
 module in CPAN.