| Subject: | The taint function gives a warning when passed a string argument |
With Perl 5.8.3, the taint() function gives the warning
Argument "foo" isn't numeric in bitwise and (&) at /usr/local/share/perl/5.8.3/Test/Taint.pm line 164.
Where "foo" is the string it was passed.
Here's a patch to shut this up:
diff -ru ./Taint.pm ../Test-Taint-0.01-new/Taint.pm
--- ./Taint.pm 2004-03-14 12:25:00.000000000 -0600
+++ ../Test-Taint-0.01-new/Taint.pm 2004-03-14 12:25:47.000000000 -0600
@@ -161,6 +161,7 @@
next if not defined;
next if ref;
eval {
+ no warnings;
if ( not $_ & '00' | '00' ) {
# Must already be a number,
# so don't stringify it now