From 3622a44fe4d763a7a5c3c5a89a832e68a25df354 Mon Sep 17 00:00:00 2001
From: "sgunderson@bigfoot.com" <>
Date: Sun, 21 Feb 2010 02:42:22 +0100
Subject: [PATCH] Add use strict/warnings for lookup.pl.

---
 lookup.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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;
-- 
2.39.2