From 631fc426cba8edbbe2a34ca5dc91a289229d66ed Mon Sep 17 00:00:00 2001
From: Pedro Melo <melo@simplicidade.org>
Date: Wed, 22 Aug 2012 13:07:11 +0100
Subject: [PATCH] Cleanup hooks for lsof runs, add socket creation

Signed-off-by: Pedro Melo <melo@simplicidade.org>
---
 zeromq/fork_context/simple1.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/zeromq/fork_context/simple1.pl b/zeromq/fork_context/simple1.pl
index 48107b4..4626979 100644
--- 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;