Permalink
Browse files

Fixlet for ZDCF 1.0 sockets indirection

  • Loading branch information...
tsee committed Mar 26, 2012
1 parent 48cbef6 commit 89f4c259403913017bdab6f1195d0fa97418aed9
Showing with 3 additions and 3 deletions.
  1. +1 −1 lib/ZMQ/Declare/Device.pm
  2. +2 −2 lib/ZMQ/Declare/Types.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
@@ -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.