diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-02-21 01:37:39 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1998-02-21 01:37:39 +0000 |
| commit | 8241b33195f293301f9a30cdc9778d5abfbcea0e (patch) | |
| tree | 14591d40df7f01d25909c89b13eeaa7174787df1 | |
| parent | 5d9312ebcd2f1dcc5c3fe24a9d4baafb7eb6fa81 (diff) | |
| download | perl-libnet-8241b33195f293301f9a30cdc9778d5abfbcea0e.tar.gz | |
Net::Domain
- Change $SIG{__DIE__} to $SIG{'__DIE__'} to stop warning in 5.003
| -rw-r--r-- | Net/Domain.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Net/Domain.pm b/Net/Domain.pm index 50c2c02..f6f0c0a 100644 --- a/Net/Domain.pm +++ b/Net/Domain.pm @@ -16,7 +16,7 @@ use Net::Config; @ISA = qw(Exporter); @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname); -$VERSION = "2.08"; # $Id: //depot/libnet/Net/Domain.pm#6 $ +$VERSION = "2.09"; # $Id: //depot/libnet/Net/Domain.pm#7 $ my($host,$domain,$fqdn) = (undef,undef,undef); @@ -47,7 +47,7 @@ sub _hostname { chomp ($host = `hostname`); } else { - local $SIG{__DIE__}; + local $SIG{'__DIE__'}; # syscall is preferred since it avoids tainting problems eval { @@ -105,7 +105,7 @@ sub _hostdomain { return $domain if(defined $domain); - local $SIG{__DIE__}; + local $SIG{'__DIE__'}; return $domain = $NetConfig{'inet_domain'} if defined $NetConfig{'inet_domain'}; |