From ec45fe8090b36abcbc6988ce1b43bdebb30f58c2 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 28 Feb 2006 13:14:58 +0000 Subject: Avoid an undefined subroutine warning during global destruction if Sys::Syslog is not present. --- urpm/msg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'urpm') diff --git a/urpm/msg.pm b/urpm/msg.pm index bf4b3e54..c99fabf3 100644 --- a/urpm/msg.pm +++ b/urpm/msg.pm @@ -51,7 +51,7 @@ eval { Sys::Syslog->import(); (my $tool = $0) =~ s!.*/!!; openlog($tool, '', 'user'); - END { closelog() } + END { defined &closelog and closelog() } }; sub sys_log { defined &syslog and syslog("info", @_) } -- cgit v1.2.1