diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-01-02 19:02:10 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-01-02 19:02:10 +0000 |
| commit | 157a83489d8bae3fe74386dc6d5488cb7c64508e (patch) | |
| tree | 6eb013afc908a2226e7bd5638c95ee83218d7ac8 | |
| parent | ec6e11a8059fbe6f213d6b8979a7d79c566c7561 (diff) | |
Allow periods in hostname
| -rw-r--r-- | Echolot/Globals.pm | 4 | ||||
| -rw-r--r-- | NEWS | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/Echolot/Globals.pm b/Echolot/Globals.pm index c4db482..398c9dd 100644 --- a/Echolot/Globals.pm +++ b/Echolot/Globals.pm @@ -1,7 +1,7 @@ package Echolot::Globals; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Globals.pm,v 1.4 2002/07/16 02:48:57 weasel Exp $ +# $Id: Globals.pm,v 1.5 2003/01/02 19:02:10 weasel Exp $ # =pod @@ -23,7 +23,7 @@ sub init(%) { my (%args) = @_; my $hostname = `hostname`; - $hostname =~ /^([a-zA-Z0-9_-]*)$/; + $hostname =~ /^([a-zA-Z0-9_.-]*)$/; $hostname = $1 || 'unknown'; $GLOBALS->{'hostname'} = $hostname; $GLOBALS->{'internalcounter'} = 1; @@ -1,5 +1,6 @@ Changes in version - * Removed a dupped line from v2legend + * Removed a dupped line from v2legend. + * Allow periods in hostname. Changes in version 2.0.7 - 2002-12-18 * Added upgrade HOWTO. |