diff --git a/utils/kernel-intercept-dump.pl b/utils/kernel-intercept-dump.pl index c5142fd06..b979c20f7 100755 --- a/utils/kernel-intercept-dump.pl +++ b/utils/kernel-intercept-dump.pl @@ -15,7 +15,7 @@ my $COMBINE = 1; # 0: don't combine any streams. each stream gets written to its own pcap file # 1: combine all streams of one call into one pcap file -my $i = new Linux::Inotify2 or die; +my $i = Linux::Inotify2->new or die; $i->blocking(0); $i->watch('/var/spool/rtpengine', IN_CLOSE_WRITE | IN_DELETE, \&handle_inotify) or die; diff --git a/utils/rtpengine-ctl b/utils/rtpengine-ctl index 1e98a24cf..2c02f1421 100755 --- a/utils/rtpengine-ctl +++ b/utils/rtpengine-ctl @@ -51,7 +51,7 @@ if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) { } # create a connecting socket -my $socket = new IO::Socket::INET ( +my $socket = IO::Socket::INET->new( PeerHost => $ip, PeerPort => $port, Proto => 'tcp',