- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 05 Aug 2010 14:46:53 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 17:1fdc37d67779
user: ville
date: Sat Mar 27 09:48:37 2004 +0000
files: ChangeLog bin/checklink
description:
Appease Perl 5.6.1's taint mode.
diff -r 3500e8c49849 -r 1fdc37d67779 ChangeLog
--- a/ChangeLog Wed Mar 24 20:01:21 2004 +0000
+++ b/ChangeLog Sat Mar 27 09:48:37 2004 +0000
@@ -1,3 +1,7 @@
+2004-03-27 Ville Skyttä <ville.skytta@iki.fi>
+
+ * Appease Perl 5.6.1's taint mode.
+
2004-03-23 Ville Skyttä <ville.skytta@iki.fi>
* Make markup and CSS validator URIs configurable, and make
diff -r 3500e8c49849 -r 1fdc37d67779 bin/checklink
--- a/bin/checklink Wed Mar 24 20:01:21 2004 +0000
+++ b/bin/checklink Sat Mar 27 09:48:37 2004 +0000
@@ -5,7 +5,7 @@
# (c) 1999-2004 World Wide Web Consortium
# based on Renaud Bruyeron's checklink.pl
#
-# $Id: checklink,v 3.11 2004-03-23 21:29:04 ville Exp $
+# $Id: checklink,v 3.12 2004-03-27 09:48:37 ville Exp $
#
# This program is licensed under the W3C(r) Software License:
# http://www.w3.org/Consortium/Legal/copyright-software
@@ -24,6 +24,10 @@
# http://lists.w3.org/Archives/Public/www-validator/ (archives)
use strict;
+
+# Get rid of potentially unsafe and unneeded environment variables.
+delete(@ENV{qw(IFS CDPATH ENV BASH_ENV)});
+$ENV{PATH} = ''; # undef would output warnings with Perl 5.6.1's Cwd.pm.
# -----------------------------------------------------------------------------
@@ -88,7 +92,7 @@
$PROGRAM = 'W3C checklink';
($AGENT = $PROGRAM) =~ s/\s+/-/g;
$VERSION = '3.9.1';
- ($CVS_VERSION) = q$Revision: 3.11 $ =~ /(\d+[\d\.]*\.\d+)/;
+ ($CVS_VERSION) = q$Revision: 3.12 $ =~ /(\d+[\d\.]*\.\d+)/;
$REVISION = sprintf('version %s [%s] (c) 1999-2004 W3C',
$VERSION, $CVS_VERSION);
Received on Thursday, 5 August 2010 14:47:01 UTC