From e9a927b58cfb908fb66a58427a00c931c84d0d87 Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Wed, 2 Sep 2009 23:04:31 +0200 Subject: [PATCH] Deprecate tainted.pl with a warning --- lib/tainted.pl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lib/tainted.pl b/lib/tainted.pl index 6e24867..388adf4 100644 --- a/lib/tainted.pl +++ b/lib/tainted.pl @@ -1,4 +1,10 @@ +# This legacy library is deprecated and will be removed in a future +# release of perl. # This subroutine returns true if its argument is tainted, false otherwise. +# +warn( "The 'tainted.pl' legacy library is deprecated and will be" + . " removed in the next major release of perl. Please use the" + . " Scalar::Util module ('tainted' function) instead." ); sub tainted { local($@); -- 1.8.3.1