develooper Front page | perl.perl5.porters | Postings from December 2000

Re: WELCOME to perl5-porters@perl.org

Thread Next
From:
Hugo
Date:
December 2, 2000 20:18
Subject:
Re: WELCOME to perl5-porters@perl.org
Message ID:
200012030520.FAA27648@crypt.compulink.co.uk
In <3A2457CA.64DC1E3F@gate.net>, Warren Pollans writes:
[in the RPC::PlServer/RPC::PlClient testsuite]
:> Failed to make first connection: Usage: Sys::Syslog::_PATH_LOG() at
:> /usr/local/lib/perl5/5.6.0/i686-linux/Sys/Syslog.pm line 277.

I encountered this just a couple of days ago. This is a bug in
Sys::Syslog already fixed in the latest development releases.

Easiest is to grab the fix from 5.7.0, as in the attached patch.

Hugo
--- ext/Sys/Syslog/Syslog.pm.old	Tue Mar 14 22:29:25 2000
+++ ext/Sys/Syslog/Syslog.pm	Sun Dec  3 05:20:07 2000
@@ -274,7 +274,8 @@
         socket(SYSLOG,AF_INET,SOCK_DGRAM,$udp)           || croak "socket: $!";
         connect(SYSLOG,$that)                            || croak "connect: $!";
     } else {
-        my $syslog = &_PATH_LOG                          || croak "_PATH_LOG not found in syslog.ph";
+        my $syslog = &_PATH_LOG();
+	length($syslog)                                  || croak "_PATH_LOG not found in syslog.ph";
         my $that = sockaddr_un($syslog)                  || croak "Can't locate $syslog";
         socket(SYSLOG,AF_UNIX,SOCK_STREAM,0)             || croak "socket: $!";
         if (!connect(SYSLOG,$that)) {

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About