Re: How to do a "perl -c(w)" check instead of an "eval $string" on a code string

Well, you can set $^C at runtime (or rather, at BEGIN time):

eval 'BEGIN { $^C = 1 } ' . $code; # where $code contains what you wan
+t to test
[download]

then test $@ for any compile error messages.

Of course, eval has problems, as you've already discussed; so to deal with that, you could use Safe:

use Safe;
my $compartment = new Safe;
$compartment->reval( 'no warnings; BEGIN { $^C = 1 } ' . $code );
[download]

Tested. :-)

Between the mind which plans and the hands which build, there must be a mediator... and this mediator must be the heart.

Comment on Re: How to do a "perl -c(w)" check instead of an "eval $string" on a code string Select or Download Code

Replies are listed 'Best First'.
Re^2: How to do a "perl -c(w)" check instead of an "eval $string" on a code string by Your Mother (Archbishop) on Jan 20, 2009 at 05:54 UTC
That's hawt++.	[reply]