From: Galen Charlton <gmc@esilibrary.com>
Date: Fri, 25 Jul 2014 18:56:34 +0000 (-0400)
Subject: LP#1339190 initialize File::Queue correctly
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=14c5708e8ee205c3b1f736be5131621611908255;p=working%2FSIPServer.git

LP#1339190 initialize File::Queue correctly

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/SIPServer.pm b/SIPServer.pm
index 0538f7e..a3595a5 100644
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -44,7 +44,7 @@ use Sip::MsgType;
 use File::Queue;
 use Storable qw(freeze thaw);
 
-my $mp_fifo = new File::Queue ( "/tmp/SIPServer.mulitplex-fifo.$$");
+my $mp_fifo = File::Queue->new( File => "/tmp/SIPServer.mulitplex-fifo.$$" );
 END { $mp_fifo->delete };
 
 use constant LOG_SIP => "local6"; # Local alias for the logging facility