Regexp (#1415)

_example/test/cas.pl

@@ -7,7 +7,7 @@ use AuthCAS;
 
 # Configuration
 my $host = $ENV{HTTP_HOST};
-my ( $domain, $port ) = ( $host =~ /\w+\.([^:]*?)(:\d+)?/ );
+my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
 my $protocol       = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
 my $portal_url     = "$protocol://auth.$domain$port";
 my $cas_url        = "$portal_url/cas";

_example/test/index.pl

@@ -15,7 +15,7 @@ my $color = $cgi->param("color") || "#ddd";
 
 # Local parameters
 my $host = $ENV{HTTP_HOST};
-my ( $domain, $port ) = ( $host =~ /\w+\.([^:]*?)(:\d+)?/ );
+my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
 my $protocol    = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
 my $portal_url  = "$protocol://auth.$domain$port";
 my $manager_url = "$protocol://manager.$domain$port";

_example/test/oauth2.pl

@@ -19,7 +19,7 @@ use Digest::SHA
 # Configuration
 #==============================================================================
 my $host = $ENV{HTTP_HOST};
-my ( $domain, $port ) = ( $host =~ /\w+\.([^:]*?)(:\d+)?/ );
+my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
 my $protocol          = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
 my $portal_url        = "$protocol://auth.$domain$port";
 my $client_id         = "lemonldap";