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;