diff options
author | Graham Barr <gbarr@pobox.com> | 2006-06-12 14:51:58 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:47 -0600 |
commit | 1ed5b6f05ec35da49417920c6402c9610829b1b1 (patch) | |
tree | 6fad20263488b1e8820d53e98af5ea7416a95b5f | |
parent | 5198653d313294c774c743fba2e4732d5d6d2c0f (diff) | |
download | perl-libnet-1ed5b6f05ec35da49417920c6402c9610829b1b1.tar.gz |
r1979@snout: gbarr | 2006-06-12 09:54:19 -0500
Remove port element from hostname before passing to SASL (patch from Achim Grolms)
-rw-r--r-- | Net/POP3.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Net/POP3.pm b/Net/POP3.pm index 9f06ccc..02c8bc6 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -448,7 +448,7 @@ sub auth { # We should probably allow the user to pass the host, but I don't # currently know and SASL mechanisms that are used by smtp that need it - my $hostname = ${*$self}{'net_pop3_host'}; + my ( $hostname ) = split /:/ , ${*$self}{'net_pop3_host'}; my $client = eval { $sasl->client_new('pop',$hostname,0) }; unless ($client) { |