OpenPKG CVS Repository http://cvs.openpkg.org/ ____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall Root: /v/openpkg/cvs Email: r...@openpkg.org Module: openpkg-src Date: 11-Oct-2009 12:35:56 Branch: HEAD Handle: 2009101111355600 Modified files: openpkg-src/perl-net perl-net.patch Log: fix SSL support Summary: Revision Changes Path 1.36 +11 -4 openpkg-src/perl-net/perl-net.patch ____________________________________________________________________________ patch -p0 <<'@@ .' Index: openpkg-src/perl-net/perl-net.patch ============================================================================ $ cvs diff -u -r1.35 -r1.36 perl-net.patch --- openpkg-src/perl-net/perl-net.patch 11 Oct 2009 08:45:01 -0000 1.35 +++ openpkg-src/perl-net/perl-net.patch 11 Oct 2009 10:35:56 -0000 1.36 @@ -200,8 +200,15 @@ #include <Win32-Extensions.h> Index: Net-Stomp-0.34/lib/Net/Stomp.pm --- Net-Stomp-0.34/lib/Net/Stomp.pm.orig 2008-06-27 10:31:46 +0200 -+++ Net-Stomp-0.34/lib/Net/Stomp.pm 2009-10-11 10:42:05 +0200 -@@ -11,11 +11,21 @@ ++++ Net-Stomp-0.34/lib/Net/Stomp.pm 2009-10-11 12:33:07 +0200 +@@ -5,17 +5,27 @@ + use IO::Select; + use Net::Stomp::Frame; + use base 'Class::Accessor::Fast'; +-__PACKAGE__->mk_accessors(qw(hostname port select socket)); ++__PACKAGE__->mk_accessors(qw(hostname port select socket ssl)); + our $VERSION = '0.34'; + sub new { my $class = shift; my $self = $class->SUPER::new(@_); @@ -212,8 +219,8 @@ PeerPort => $self->port, Proto => 'tcp' ); -+ if ($self->ssl) { -+ eval { use use IO::Socket::SSL; }; ++ if (defined $self->ssl) { ++ eval { use IO::Socket::SSL; }; + die "SSL transport required IO::Socket::SSL" if ($@); + %sockopts = (%sockopts, %{$self->ssl}); + $socket = IO::Socket::SSL->new(%sockopts); @@ . ______________________________________________________________________ OpenPKG http://openpkg.org CVS Repository Commit List openpkg-cvs@openpkg.org