diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-30 04:44:02 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-30 04:44:02 +0000 |
| commit | 92399ecbfacfbf896d7b1fe4d1895c866f812ac7 (patch) | |
| tree | f889c50c4477413a43cbb4de0810849b79d4ab3a /gnu/usr.bin/perl | |
| parent | e0f66c8879f54a16ebcacd1e02a38907dc1f54d7 (diff) | |
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)
Diffstat (limited to 'gnu/usr.bin/perl')
| -rw-r--r-- | gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 } } } |