ftp.nice.ch/pub/next/unix/script/perl.5.004_04.NIHS.bd.pkg.tar.gz#/perl.pkg/_perl/lib/perl5/tainted.pl

This is tainted.pl in view mode; [Download] [Up]

# This subroutine returns true if its argument is tainted, false otherwise.

sub tainted {
    local($@);
    eval { kill 0 * $_[0] };
    $@ =~ /^Insecure/;
}

1;

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.