From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Tue, 26 Apr 2011 15:00:10 +0000 (+0200)
Subject: TomC change with a twist
X-Git-Tag: accepted/trunk/20130322.191538~4342
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=40bbb70774f8fe1bca0339b5e5ed4d4ced3cceb3;p=platform%2Fupstream%2Fperl.git

TomC change with a twist
---

diff --git a/pod/perlop.pod b/pod/perlop.pod
index 3120634..c97c331 100644
--- a/pod/perlop.pod
+++ b/pod/perlop.pod
@@ -1786,11 +1786,11 @@ when the program is done:
 The STDIN filehandle used by the command is inherited from Perl's STDIN.
 For example:
 
-    open BLAM, "blam" || die "Can't open: $!";
-    open STDIN, "<&BLAM";
-    print `sort`;
+    open SPLAT, "stuff"    or die "can't open stuff: $!";
+    open STDIN, "<&SPLAT"  or die "can't dupe SPLAT: $!";
+    print STDOUT `sort`;
 
-will print the sorted contents of the file "blam".
+will print the sorted contents of the file named F<"stuff">.
 
 Using single-quote as a delimiter protects the command from Perl's
 double-quote interpolation, passing it on to the shell instead: