diff options
| author | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03 (patch) | |
| tree | 0143be655536dc428f4fa3cc7d01f6bcffe14c01 /lib/Sys | |
| parent | 08aa1457cd52a368c210ab76a3da91cfadabea1a (diff) | |
| parent | 3458556dd685b1767b760a72bd2e9007b5c4575e (diff) | |
| download | perl-3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03.tar.gz | |
[differences between cumulative patch application and perl5.004_01]perl-5.004_01
[editor's note: The changes between this and 5.004 were processed from
the m1t2 release, which was a bad idea as it was the _01 release which
had the final corrected attributions. The differences between the
various m*t* releases do that; I considered it most valuable just to
look at the _NN releases. Many patches have been separated out and/or
applied from the p5p archives nonetheless.]
Diffstat (limited to 'lib/Sys')
| -rw-r--r-- | lib/Sys/Syslog.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Sys/Syslog.pm b/lib/Sys/Syslog.pm index 471be11fcd..9efcfbf3c4 100644 --- a/lib/Sys/Syslog.pm +++ b/lib/Sys/Syslog.pm @@ -201,7 +201,7 @@ sub connect { unless ($host) { require Sys::Hostname; my($host_uniq) = Sys::Hostname::hostname(); - ($host) = $host_uniq =~ /([\w\-]+)/; + ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _) } my $udp = getprotobyname('udp'); my $syslog = getservbyname('syslog','udp'); |