Re: Minor suggestion for Sys::Syslog [PATCH]
authorRobert Spier <rspier@pobox.com>
Wed, 29 Nov 2000 02:25:39 +0000 (21:25 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 29 Nov 2000 15:48:40 +0000 (15:48 +0000)
Message-ID: <14884.44915.86028.422238@localhost.localdomain>

More checking in case someone has broken their services or
protocol databases.

p4raw-id: //depot/perl@7918

ext/Sys/Syslog/Syslog.pm

index c7ce3de..92b82a1 100644 (file)
@@ -274,8 +274,8 @@ sub connect {
        ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _)
     }
     unless ( $sock_type ) {
-        my $udp = getprotobyname('udp');
-        my $syslog = getservbyname('syslog','udp');
+        my $udp = getprotobyname('udp')                 || croak "getprotobyname failed for udp";
+        my $syslog = getservbyname('syslog','udp')      || croak "getservbyname failed";
         my $this = sockaddr_in($syslog, INADDR_ANY);
         my $that = sockaddr_in($syslog, inet_aton($host) || croak "Can't lookup $host");
         socket(SYSLOG,AF_INET,SOCK_DGRAM,$udp)           || croak "socket: $!";