W3C home > Mailing lists > Public > www-validator-cvs@w3.org > August 2010

link-checker commit: Appease Perl 5.6.1's taint mode.

From: Mercurial notifier <nobody@w3.org>
Date: Thu, 05 Aug 2010 14:46:53 +0000
To: link-checker updates <www-validator-cvs@w3.org>
Message-Id: <E1Oh1if-0005UP-Dg@blinky.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

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:44 UTC