ports/164204: p5_ZeroMQ request sending segfault

[MC]

>Number:         164204
>Category:       ports
>Synopsis:       p5_ZeroMQ request sending segfault
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Jan 16 16:10:09 UTC 2012
>Closed-Date:
>Last-Modified:
>Originator:     MC
>Release:        FreeBSD9.0
>Organization:
>Environment:
FreeBSD pcbsd-1126 9.0-RELEASE FreeBSD 9.0-RELEASE #3: Tue Dec 27 21:59:00 UTC 2011     root at build9x64.pcbsd.org:/usr/obj/builds/i386/pcbsd-build90/fbsd-source/9.0/sys/GENERIC  i386
>Description:
Perl scripts segfault with SIGNAL 11 when ZeroMQ::recv() is called.
>How-To-Repeat:
Script from zeromq.org:

#!/usr/bin/perl
 
 use strict;
 use warnings;
 use 5.10.0;
 
 use ZeroMQ qw/:all/;
 
 my $context = ZeroMQ::Context->new();
 
 # Socket to talk to server
 say 'Connecting to hello world server...';
 my $requester = $context->socket(ZMQ_REQ);
 $requester->connect('tcp://172.16.0.109:5052');
 
 for my $request_nbr (0..9) {
   say "Sending request $request_nbr...";
   $requester->send('Hello');
 
   my $reply = $requester->recv();
   say "Received reply $request_nbr: [". $reply->data .']';
 }

Note I modified the address for my network
>Fix:
Python equivalent works on same machine.

>Release-Note:
>Audit-Trail:
>Unformatted: