[Wigwam-cvs] CVS: wigwam-base/bootstrap wigwam-bootstrap.in,1.50,1.51

[Paul M. <wa...@us...>]

Update of /cvsroot/wigwam/wigwam-base/bootstrap
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19977

Modified Files:
	wigwam-bootstrap.in 
Log Message:
strip leading space for url (happens sometimes in Location: headers)


Index: wigwam-bootstrap.in
===================================================================
RCS file: /cvsroot/wigwam/wigwam-base/bootstrap/wigwam-bootstrap.in,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -r1.50 -r1.51
--- wigwam-bootstrap.in	15 Jan 2004 00:56:06 -0000	1.50
+++ wigwam-bootstrap.in	29 Jan 2004 17:00:25 -0000	1.51
@@ -1173,7 +1173,7 @@
 {
   my ($url) = @_;
 
-  $url =~ m#^http://([^/:]+)(:(\d+))?(/(.+)?)?$# or die "bad url $url";
+  $url =~ m#^\s+http://([^/:]+)(:(\d+))?(/(.+)?)?$# or die "bad url $url";
 
   my $host = $1;
   my $port = $3 || 80;
@@ -1192,7 +1192,7 @@
 {
   my ($url) = @_;
 
-  $url =~ m#^(http|ftp)://([^/:]+)(:(\d+))?(/(.+))?$# or die "bad url $url";
+  $url =~ m#^\s+(http|ftp)://([^/:]+)(:(\d+))?(/(.+))?$# or die "bad url $url";
 
   my $method = $1;
   my $host = $2;