From 92399ecbfacfbf896d7b1fe4d1895c866f812ac7 Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Sun, 30 Apr 2000 04:44:02 +0000 Subject: Change 5985 by gsar@auger on 2000/04/28 07:30:28 forked child may not exit correctly if it failed to open /dev/console (from Graham Barr) --- gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gnu/usr.bin/perl/ext/Sys/Syslog') diff --git a/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm b/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm index d109a9d8a6b..95f89ce4fc7 100644 --- a/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm +++ b/gnu/usr.bin/perl/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 } } } -- cgit v1.2.3