From 9668e9c1702e533ce109822bee16adc8fdea3b17 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 07:30:28 +0000
Subject: [PATCH] forked child may not exit correctly if it failed to open
 /dev/console (from Graham Barr)

p4raw-id: //depot/perl@5985
---
 ext/Sys/Syslog/Syslog.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 	    }
 	}
     }
-- 
2.7.4