|
|
@@ -200,8 +200,15 @@ Index: Net-Pcap-0.16/Pcap.xs
|
|
|
#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 @@ Index: Net-Stomp-0.34/lib/Net/Stomp.pm
|
|
|
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);
|
