diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm index e6fe5ce8473..ae559a9b74d 100644 --- a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm +++ b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm @@ -1,5 +1,5 @@ package LWP::Protocol::gopher; -$LWP::Protocol::gopher::VERSION = '6.25'; + # Implementation of the gopher protocol (RFC 1436) # # This code is based on 'wwwgopher.pl,v 0.10 1994/10/17 18:12:34 shelden' @@ -9,6 +9,8 @@ $LWP::Protocol::gopher::VERSION = '6.25'; use strict; +our $VERSION = '6.31'; + require HTTP::Response; require HTTP::Status; require IO::Socket; @@ -185,7 +187,7 @@ sub gopher2url sub menu2html { my($menu) = @_; - $menu =~ s/\015//g; # remove carriage return + $menu =~ tr/\015//d; # remove carriage return my $tmp = <<"EOT"; <HTML> <HEAD> |