open() example in perlfunc.pod

Message-ID: <"iraun1.ira.0090801:001230.213049"@ira.uka.de>

p4raw-id: //depot/perl@8277

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index f058baf..82086e3 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -2882,7 +2882,7 @@ another way to protect your filenames from interpretation.  For example:
     sysopen(HANDLE, $path, O_RDWR|O_CREAT|O_EXCL)
        or die "sysopen $path: $!";
     $oldfh = select(HANDLE); $| = 1; select($oldfh);
-    print HANDLE "stuff $$\n");
+    print HANDLE "stuff $$\n";
     seek(HANDLE, 0, 0);
     print "File contains: ", <HANDLE>;