| Subject: | [PATCH] SSL.pm (import): fixed inet4 and inet6 clauses |
| Date: | Sun, 9 Mar 2008 12:23:37 +0300 |
| To: | bug-io-socket-ssl [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
---
SSL.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/SSL.pm b/SSL.pm
index 11cdf2d..e7f0c63 100644
--- a/SSL.pm
+++ b/SSL.pm
@@ -112,10 +112,10 @@ sub import {
my @export;
foreach (@_) {
- if ( /^inet4i$/i ) {
+ if ( /^inet4$/i ) {
require IO::Socket::INET;
@ISA = 'IO::Socket::INET'
- } elsif ( /оnet6$/i ) {
+ } elsif ( /^inet6$/i ) {
require IO::Socket::INET6;
require Socket6;
Socket6->import( 'inet_pton' );
--
1.5.3.8.GIT