Cleanup hooks for lsof runs, add socket creation

Signed-off-by: Pedro Melo <melo@simplicidade.org>
melo · Aug 22, 2012 · 631fc42 · 631fc42
1 parent 82e21b4
commit 631fc42
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/zeromq/fork_context/simple1.pl b/zeromq/fork_context/simple1.pl
@@ -3,10 +3,10 @@
 use v5.14;
 use warnings;
 use ZMQ::LibZMQ2;
+use ZMQ::Constants ':v2.1.11', ':all';
 
-say "Check lsof of $$ - before context"; <>;
 my $ctx = zmq_init(1);
-say "Check lsof of $$ - before fork"; <>;
+my $sock = zmq_socket($ctx, ZMQ_PUB);
+#my $msg = zmq_msg_init_data('hello');
 my $pid = fork();
-say "Check lsof of $$ - before death"; <>;
 waitpid($pid, 0) if $pid;