fixed IPv6 listen value bug in Mojo::Server::Daemon

mojolicious · Mar 15, 2012 · 5a17f39 · 5a17f39
1 parent 3433bdf
commit 5a17f39
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -5,6 +5,7 @@ This file documents the revision history for Perl extension Mojolicious.
         - Improved Mojolicious::Routes logging.
         - Improved documentation.
         - Improved tests.
+        - Fixed IPv6 listen value bug in Mojo::Server::Daemon.
 
 2.61    2012-03-14 00:00:00
         - Merged Mojolicious exception handling into the around_dispatch

diff --git a/lib/Mojo/Server/Daemon.pm b/lib/Mojo/Server/Daemon.pm
@@ -195,7 +195,7 @@ sub _listen {
 
   # DEPRECATED in Leaf Fluttering In Wind!
   my ($address, $port, $cert, $key, $ca);
-  if ($listen =~ qr|//(.+)\:(\d+)\:(.*?)\:(.*?)(?:\:(.+)?)?$|) {
+  if ($listen =~ qr|//([^\[\]]]+)\:(\d+)\:(.*?)\:(.*?)(?:\:(.+)?)?$|) {
     warn "Custom HTTPS listen values are DEPRECATED in favor of URLs!\n";
     ($address, $port, $cert, $key, $ca) = ($1, $2, $3, $4, $5);
   }