diff options
| author | Andreas J. Koenig <koenig@anna.mind.de> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | 41f926b844140b7f7eaa9302113e45df3a9f9ff4 (patch) | |
| tree | 22d3e7c5d675939d6ceab225588d48cd915fcff8 /utils/perlbug.PL | |
| parent | 0806a92ffc3a74ca70aa81051cdf2a306cd0a8af (diff) | |
| download | perl-41f926b844140b7f7eaa9302113e45df3a9f9ff4.tar.gz | |
5.004m4t1: perlbug: NIS domainname gets into wrong places
>>>>> Jarkko Hietaniemi writes:
jhi> [patch mode]
jhi> I suggest the following patch: appending the ".`domainname`" only iff
jhi> it contains dots and when last element has only [A-Za-z] and is no
jhi> longer than 3 characters. What were the latest plans about adding new
jhi> top level domains? Will these heuristics still be true?
No. And I recall we have been flamed heavily in the past for using
`domainname` at all and I'm surprised that we still do.
I'd suggest such a patch instead:
p5p-msgid: sfcg1qy38as.fsf@anna.in-berlin.de
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 6b670fc46b..0827db889a 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -292,12 +292,9 @@ EOF $domain = Mail::Util::maildomain(); } elsif ($Is_MSWin32) { $domain = $ENV{'USERDOMAIN'}; - } elsif ($Is_VMS) { + } else { require Sys::Hostname; $domain = Sys::Hostname::hostname(); - } else { - $domain = `hostname`.".".`domainname`; - $domain =~ s/[\r\n]+//g; } my($guess); |