Survey: Let them eat sort

2009-05-19 02:45:26 +00:00 · 2009-05-19 02:45:26 +00:00 · a9638ae691
commit a9638ae691
parent 4b3f81e3a0
2 changed files with 4 additions and 2 deletions
--- a/lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/ExpressionEngine.pm
@ -448,6 +448,7 @@ sub run {

        # Create the Safe compartment
        my $compartment = Safe->new();
+        $compartment->permit(qw(sort));

        # Share our utility subs with the compartment
        $compartment->share('&value');