Add use strict/warnings for lookup.pl.

diff --git a/lookup.pl b/lookup.pl
index 465c6835879b3a164fd2f04185e4e570c14f0e24..f22357b7e46a0c7306c6e2cc1729f11a235ca805 100644 (file)
--- 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;