From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 07:30:28 +0000 (+0000)
Subject: forked child may not exit correctly if it failed to open
X-Git-Tag: accepted/trunk/20130322.191538~34967
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9668e9c1702e533ce109822bee16adc8fdea3b17;p=platform%2Fupstream%2Fperl.git

forked child may not exit correctly if it failed to open
/dev/console (from Graham Barr)

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

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index d109a9d..95f89ce 100644
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -244,9 +244,9 @@ sub syslog {
 	    else {
 		if (open(CONS,">/dev/console")) {
 		    print CONS "<$facility.$priority>$whoami: $message\r";
-		    exit if defined $pid;		# if fork failed, we're parent
 		    close CONS;
 		}
+		exit if defined $pid;		# if fork failed, we're parent
 	    }
 	}
     }