diff options
| author | Graham Barr <gbarr@pobox.com> | 1999-09-18 16:03:33 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1999-09-18 16:03:33 +0000 |
| commit | 024907cb1aa3d69165e59f9f0bdb5e8c509c44e6 (patch) | |
| tree | 3bc90799a395414d21225d643df2910aededb55b | |
| parent | e96eee8285c642fa59a3aacc19e5b9672269ff5b (diff) | |
| download | perl-libnet-024907cb1aa3d69165e59f9f0bdb5e8c509c44e6.tar.gz | |
Net::Netrc
- Applied patch from Randy Merrell to fix / escaping
| -rw-r--r-- | Net/Netrc.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Net/Netrc.pm b/Net/Netrc.pm index 4588d5d..b6fee1f 100644 --- a/Net/Netrc.pm +++ b/Net/Netrc.pm @@ -11,7 +11,7 @@ use strict; use FileHandle; use vars qw($VERSION); -$VERSION = "2.08"; # $Id: //depot/libnet/Net/Netrc.pm#4$ +$VERSION = "2.09"; # $Id: //depot/libnet/Net/Netrc.pm#4$ my %netrc = (); @@ -102,6 +102,8 @@ TOKEN: { next TOKEN unless $mach; my $value = shift @tok; + # Following line added by rmerrell to remove '/' escape char in .netrc + $value =~ s/\/\\/\\/g; $mach->{$1} = $value; } elsif($tok eq "macdef") |