From: sgunderson@bigfoot.com <>
Date: Sun, 21 Feb 2010 01:42:22 +0000 (+0100)
Subject: Add use strict/warnings for lookup.pl.
X-Git-Url: https://git.sesse.net/?p=shamaz;a=commitdiff_plain;h=3622a44fe4d763a7a5c3c5a89a832e68a25df354

Add use strict/warnings for lookup.pl.
---

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;