initialize File::Queue correctly

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

diff --git a/SIPServer.pm b/SIPServer.pm
index 0538f7e..a3595a5 100644 (file)
--- 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