# DON'T LOOK NOW! - blindly untainting can make you go blind!
$block =~ /(.*)/s;
$block = $1;
        
$block = eval $block;      <-- this line here
return $class->error($@)
     unless defined $block;