Re: How do I tell if strict, taint, etc are on?

in reply to How do I tell if strict, taint, etc are on?

As for checking if use strict and use warnings has been used, try:

print "strict module loaded... ",
      exists($INC{'strict.pm'}) ? "yes" : "no",
      "\n";

print "warnings module loaded... ",
      exists($INC{'warnings.pm'}) ? "yes" : "no",
      "\n";
[download]

Others have addressed testing for Taint.

Update: fixed typo noticed by been42

Comment on Re: How do I tell if strict, taint, etc are on? Download Code

Replies are listed 'Best First'.
Re^2: How do I tell if strict, taint, etc are on? by been42 (Curate) on Mar 17, 2006 at 15:44 UTC
A slight correction: `print "strict module loaded... ", exists($INC{'strict.pm'}) ? "yes" : "no", "\n"; print "warnings module loaded... ", exists($INC{'warnings.pm'}) ? "yes" : "no", "\n";` [download]	[reply] [d/l]
Re^3: How do I tell if strict, taint, etc are on? by linux454 (Pilgrim) on Mar 17, 2006 at 18:14 UTC
Thanks for catching that.	[reply]

In Section Seekers of Perl Wisdom