# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1389092683 -3600
# Node ID cab2cd677dd55dc8ba25998cd461be4dedf7df33
# Parent  d6685a768d82a0ad4802b09e7bfe0240b009134e
fixed the hostname regex

diff -r d6685a768d82 -r cab2cd677dd5 ftpipe
--- a/ftpipe	Fri Apr 29 16:48:46 2011 +0200
+++ b/ftpipe	Tue Jan 07 12:04:43 2014 +0100
@@ -60,7 +60,7 @@
 sub parse_url($) {
     $_[0] =~ m{^ftp://
 	    (?:(?<user>.*?)(?::(?<pass>.*))?@)?
-	    (?<host>[a-z\d_\.]+)/
+	    (?<host>[a-z\d\.-]+)/
 	    (?<path>.*)}x;
     my %r = %+;