- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Mon, 22 May 2006 21:14:03 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/2006/ack
In directory hutz:/tmp/cvs-serv32024
Modified Files:
ack.pl grab.pl
Log Message:
Turn on strictness and warnings.
Index: ack.pl
===================================================================
RCS file: /sources/public/2006/ack/ack.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ack.pl 22 May 2006 20:39:19 -0000 1.2
+++ ack.pl 22 May 2006 21:14:00 -0000 1.3
@@ -13,6 +13,9 @@
#
# $Id$
+use strict;
+use warnings;
+
use CGI ();
use CGI::Carp qw(fatalsToBrowser);
use Digest::MD5 qw(md5_hex);
Index: grab.pl
===================================================================
RCS file: /sources/public/2006/ack/grab.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- grab.pl 22 May 2006 02:15:33 -0000 1.4
+++ grab.pl 22 May 2006 21:14:00 -0000 1.5
@@ -13,6 +13,9 @@
#
# $Id$
+use strict;
+use warnings;
+
use CGI ();
use HTTP::Request ();
use LWP::UserAgent ();
@@ -30,7 +33,8 @@
# Copy some request headers
foreach (qw(User-Agent Accept Accept-Language Accept-Charset)) {
- my $v = $cgi->http($_) or next and $req->header($_, $v);
+ my $v = $cgi->http($_) or next;
+ $req->header($_, $v);
}
$req->header("Referer", $ref) if $ref;
Received on Monday, 22 May 2006 21:14:12 UTC