home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RISC DISC 2
/
RISC_DISC_2.iso
/
pd_share
/
utilities
/
cli
/
perl
/
!Perl
/
Lib
/
pl
/
tainted
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1994-10-18
|
164 b
|
10 lines
# This subroutine returns true if its argument is tainted, false otherwise.
sub tainted {
local($@);
eval { kill 0 * $_[0] };
$@ =~ /^Insecure/;
}
1;