Sys::Syslog: hyphens in hostnames
authorJarkko Hietaniemi <Jarkko.Hietaniemi@cc.hut.fi>
Tue, 15 Apr 1997 14:21:53 +0000 (17:21 +0300)
committerChip Salzenberg <chip@atlantic.net>
Mon, 14 Apr 1997 12:00:00 +0000 (00:00 +1200)
Jerome Abela writes:
 >
 > In sub connect of Sys::Syslog, someone wrote:
 >         ($host) = $host_uniq =~ /(\w+)/;
 >
 > But, if the name contains a '-', it gets truncated. The RE should
 > rather be someting like [a-zA-Z0-9-]+, shouldn't it ?

p5p-msgid: 199704151421.RAA19693@alpha.hut.fi

lib/Sys/Syslog.pm

index 2da1d76..471be11 100644 (file)
@@ -201,7 +201,7 @@ sub connect {
     unless ($host) {
        require Sys::Hostname;
        my($host_uniq) = Sys::Hostname::hostname();
-       ($host) = $host_uniq =~ /(\w+)/;
+       ($host) = $host_uniq =~ /([\w\-]+)/;
     }
     my $udp = getprotobyname('udp');
     my $syslog = getservbyname('syslog','udp');