Skip to content
Browse files

Fixlet for ZDCF 1.0 sockets indirection

  • Loading branch information...
1 parent 48cbef6 commit 89f4c259403913017bdab6f1195d0fa97418aed9 @tsee committed Mar 26, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 lib/ZMQ/Declare/Device.pm
  2. +2 −2 lib/ZMQ/Declare/Types.pm
View
2 lib/ZMQ/Declare/Device.pm
@@ -128,7 +128,7 @@ sub _make_device_sockets {
my @socks;
my $sockets = $dev_spec->{sockets} || {};
foreach my $sockname (keys %$sockets) {
- my $sock_spec = $dev_spec->{$sockname};
+ my $sock_spec = $sockets->{$sockname};
my $socket = $self->_setup_socket($cxt, $sock_spec);
push @socks, [$socket, $sock_spec];
$dev_runtime->sockets->{$sockname} = $socket;
View
4 lib/ZMQ/Declare/Types.pm
@@ -55,8 +55,8 @@ my %zdcf_socket_types = (
# => via {$socket_types{$_}};
sub zdcf_sock_type_to_number {
- my $class = shift;
- return $zdcf_socket_types{shift()};
+ my ($class, $type) = @_;
+ return $zdcf_socket_types{$type};
}
enum 'ZMQDeclareSocketConnectType' => [qw(connect bind)];

0 comments on commit 89f4c25

Please sign in to comment.
Something went wrong with that request. Please try again.