additional check in _generic netloc

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Next message: sondeen@isi.edu: "bug with HTML::Parse, from libwww-perl-5.04"
• Previous message: Gisle Aas: "Re: make test failure on IO/Socket.pm"

Bomb if the URL is something like

http://host.com:8080foo/dir/file.html

This patch is for libwww-perl-5.04

*** _generic.pm	Fri Nov  1 14:56:45 1996
--- _generic.pm.~1~	Tue Oct  8 13:14:53 1996
***************
*** 164,171 ****
  	} elsif (defined $self->{'netloc'}) {
  	    $self->{'netloc'} =~ s/:$//;  # handle empty port spec
  	}
-     } elsif($nl =~ /:/) {
-       Carp::croak("port is not numeric in $nl");
      }
      $self->{'_str'} = '';
      $old;
--- 164,169 ----


	Thank you for this excellent library,

				Loic Dachary

				ECILA
				18 rue Pradier
				75019 Paris - France
				Tel: 33 01 42 08 74 95 Fax: 33 01 42 08 49 01
				e-mail: loic@ceic.com URL: http://www.ceic.com/

• Next message: sondeen@isi.edu: "bug with HTML::Parse, from libwww-perl-5.04"
• Previous message: Gisle Aas: "Re: make test failure on IO/Socket.pm"