diff options
| -rw-r--r-- | Xerl/Page/Templates.pm | 2 | ||||
| -rw-r--r-- | Xerl/Setup/Configure.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm index c297d15..28a1d93 100644 --- a/Xerl/Page/Templates.pm +++ b/Xerl/Page/Templates.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 Dipl.-Inform. (FH) Paul C. Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm index d01e5a5..18c49fe 100644 --- a/Xerl/Setup/Configure.pm +++ b/Xerl/Setup/Configure.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 Dipl.-Inform. (FH) Paul C. Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # @@ -61,7 +61,7 @@ sub defaults($) { $self->set_host( lc $ENV{HTTP_HOST} ) unless $self->host_exists(); - my ($hostname) = $ENV{HTTP_HOST} =~ /^(.*)\./; + my ($hostname) = $ENV{HTTP_HOST} =~ /^([^\.]*)\./; $self->set_hostname( lc $hostname ) unless $self->hostname_exists(); |