From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 13 Oct 2002 14:26:26 +0000 (+0200)
Subject: perlipc.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76c0e0db388a8b90df585b75a0a5c34b2742b9c0;p=p5sagit%2Fp5-mst-13.2.git

perlipc.pod
Message-Id: <200210131226.g9DCQQLN014591@vran.herceg.de>

p4raw-id: //depot/perl@18017
---

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 6ab14de..40693a5 100644
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -555,7 +555,7 @@ And here's a safe pipe open for writing:
 
     # add error processing as above
     $pid = open(KID_TO_WRITE, "|-");
-    $SIG{ALRM} = sub { die "whoops, $program pipe broke" };
+    $SIG{PIPE} = sub { die "whoops, $program pipe broke" };
 
     if ($pid) {  # parent
 	for (@data) {