changeset 12291:bccefec6707d

6935710 patch 141552-01 causes an error when the Syslog perl module is used
author Vladimir Marek <Vladimir.Marek@Sun.COM>
date Tue, 30 Mar 2010 10:59:13 +0200
parents 7d1fba91d16d
children 4c8e89f9481c
files usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/Syslog.pm
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/Syslog.pm	Fri Apr 30 20:59:29 2010 -0700
+++ b/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/Syslog.pm	Tue Mar 30 10:59:13 2010 +0200
@@ -178,7 +178,7 @@
 
 sub closelog {
     $facility = $ident = '';
-    disconnect_log();
+    disconnect_log() if $connected;
 } 
 
 sub setlogmask {