X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=lookup.pl;h=f22357b7e46a0c7306c6e2cc1729f11a235ca805;hb=3622a44fe4d763a7a5c3c5a89a832e68a25df354;hp=465c6835879b3a164fd2f04185e4e570c14f0e24;hpb=19305235c7f929b4b0b1b1b3d724ae9216abeff1;p=shamaz

diff --git a/lookup.pl b/lookup.pl
index 465c683..f22357b 100644
--- a/lookup.pl
+++ b/lookup.pl
@@ -5,6 +5,10 @@ use IPC::Open2;
 use XML::DOM;
 use POSIX;
 
+use strict;
+use warnings;
+no warnings qw(once);
+
 my $ua = LWP::UserAgent->new;
 push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, SendTE => 0);
 $ua->agent('Dalvik/1.2.0 (Linux; U; Android Froyo Build/MASTER)');
@@ -123,7 +127,7 @@ sub encrypt {
 	my $ret = "";
 	local $/ = undef;
 
-	$pid = open2(\*CHLD_OUT, \*CHLD_IN, './encrypt-ice');
+	my $pid = IPC::Open2::open2(\*CHLD_OUT, \*CHLD_IN, './encrypt-ice');
 	for my $i (0..($blocks-1)) {
 		my $block = substr($content, 8*$i, 8);
 		print CHLD_IN $block;