summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/LWP/Protocol/gopher.pm6
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>