summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/tainted.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/tainted.pl')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/tainted.pl9
1 files changed, 0 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/tainted.pl b/Master/tlpkg/tlperl/lib/tainted.pl
deleted file mode 100755
index 6e24867a83d..00000000000
--- a/Master/tlpkg/tlperl/lib/tainted.pl
+++ /dev/null
@@ -1,9 +0,0 @@
-# This subroutine returns true if its argument is tainted, false otherwise.
-
-sub tainted {
- local($@);
- eval { kill 0 * $_[0] };
- $@ =~ /^Insecure/;
-}
-
-1;