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
