| From: | Dominique Quatravaux <dom [...] idealx.com> |
| To: | Dominique Quatravaux <dom [...] idealx.com> |
| CC: | www-mechanize-development [...] lists.sf.net |
| Subject: | [mech-dev]Re: Taint bug fixes for 5.6.1 |
| Date: | Mon, 18 Oct 2004 15:55:38 +0200 |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
| Dominique Quatravaux wrote:
|
| | Hello list, | | Enclosed is a patch
|
| Well, I goofed yet again... Here it is.
|
Sigh :-(
I forgot one instance of "delete $ENV{PATH}". Here is the (hopefully
now complete) patch again. (There are still errors left when running
Perl 5.6.1 but they are not taint-related)
Please apply to current CVS, disregarding the beginning of this thread.
- --
Dominique QUATRAVAUX Ingénieur senior
01 44 42 00 08 IDEALX
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org
iD8DBQFBc8tZMJAKAU3mjcsRApCzAJsEQH0sTkgIaQq8NyCGDRAhD8EJ2ACeOsSk
P/b5GxCJYBtH28rvHdPZ5KQ=
=SF+A
-----END PGP SIGNATURE-----
diff -r -U3 www-mechanize.ORIG/t/add_header.t www-mechanize/t/add_header.t
--- www-mechanize.ORIG/t/add_header.t Tue Sep 28 00:40:52 2004
+++ www-mechanize/t/add_header.t Mon Oct 18 15:41:06 2004
@@ -6,6 +6,7 @@
use HTTP::Request::Common;
BEGIN {
+ delete @ENV{qw(PATH)}; # Placates taint-unsafe Cwd.pm in 5.6.1
use_ok( 'WWW::Mechanize' );
}
diff -r -U3 www-mechanize.ORIG/t/area_link.t www-mechanize/t/area_link.t
--- www-mechanize.ORIG/t/area_link.t Wed Sep 29 21:38:55 2004
+++ www-mechanize/t/area_link.t Mon Oct 18 15:40:11 2004
@@ -6,7 +6,7 @@
use Test::More tests => 9;
use URI::file;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
+BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY PATH ) }; }
BEGIN {
use_ok( 'WWW::Mechanize' );
}
diff -r -U3 www-mechanize.ORIG/t/field.t www-mechanize/t/field.t
--- www-mechanize.ORIG/t/field.t Tue Sep 28 00:40:52 2004
+++ www-mechanize/t/field.t Mon Oct 18 15:41:02 2004
@@ -6,6 +6,7 @@
use URI::file;
BEGIN {
+ delete @ENV{qw(PATH)}; # Placates taint-unsafe Cwd.pm in 5.6.1
use_ok( 'WWW::Mechanize' );
}
diff -r -U3 www-mechanize.ORIG/t/find_link.t www-mechanize/t/find_link.t
--- www-mechanize.ORIG/t/find_link.t Tue Sep 28 00:40:52 2004
+++ www-mechanize/t/find_link.t Mon Oct 18 15:41:31 2004
@@ -6,6 +6,7 @@
use URI::file;
BEGIN {
+ delete @ENV{qw(PATH)}; # Placates taint-unsafe Cwd.pm in 5.6.1
use_ok( 'WWW::Mechanize' );
}
diff -r -U3 www-mechanize.ORIG/t/frames.t www-mechanize/t/frames.t
--- www-mechanize.ORIG/t/frames.t Tue Sep 28 00:40:52 2004
+++ www-mechanize/t/frames.t Mon Oct 18 15:41:37 2004
@@ -6,6 +6,7 @@
use URI::file;
BEGIN {
+ delete @ENV{qw(PATH)}; # Placates taint-unsafe Cwd.pm in 5.6.1
use_ok( 'WWW::Mechanize' );
}
diff -r -U3 www-mechanize.ORIG/t/select.t www-mechanize/t/select.t
--- www-mechanize.ORIG/t/select.t Thu Apr 29 07:06:29 2004
+++ www-mechanize/t/select.t Mon Oct 18 15:50:50 2004
@@ -6,6 +6,7 @@
use URI::file;
BEGIN {
+ delete @ENV{qw(PATH)}; # Placates taint-unsafe Cwd.pm in 5.6.1
use_ok( 'WWW::Mechanize' );
}
diff -r -U3 www-mechanize.ORIG/t/tick.t www-mechanize/t/tick.t
--- www-mechanize.ORIG/t/tick.t Thu Apr 29 05:44:50 2004
+++ www-mechanize/t/tick.t Mon Oct 18 15:42:26 2004
@@ -4,6 +4,7 @@
use Test::More tests => 6;
use URI::file;
+delete @ENV{qw(PATH)}; # Placates taint-unsafe Cwd.pm in 5.6.1
use_ok( 'WWW::Mechanize' );
my $mech = WWW::Mechanize->new( cookie_jar => undef );