Evaluating user-defined conditions

[Andrew Beverley]

On Tue, 2014-06-10 at 09:20 +0200, Abigail wrote:
> >     # Sanitise
> >     $_ = $code;
> >     return unless /^[ \S]+$/;               # Only allow normal spaces
> >     return if /[\[\]]+/;                    # No brackets should remain
> >     return if /\\/;                         # No escapes please
> >     s/"[^"]+"//g;                           # Remove quoted strings
> >     m!^([-()*+/0-9<> ]|&&|eq)+$! or return; # Allowed expression chars
> 
> 
> So, you excluding having any alpha char (except 'eq') in the resulting
> expression?

Sorry, just realised that I didn't explain myself properly.

It's not what is remaining in $_ that is run, it's the original code
that is in $code. The sequence above just checks that the code is safe
to run.

Andy