-# For PLPsafe scripts
-sub safe_eval {
- my ($r, $code) = @_;
- $r->send_http_header('text/plain');
- require Safe;
- unless ($PLP::safe) {
- $PLP::safe = Safe->new('PLP::Script');
- for ( map split, $r->dir_config->get('PLPsafe_module') ) {
- $PLP::safe->share('*' . $_ . '::');
- s!::!/!g;
- require $_ . '.pm';
- }
- $PLP::safe->permit(Opcode::full_opset());
- $PLP::safe->deny(Opcode::opset(':dangerous'));
- }
- $PLP::safe->reval($code);
-}
-
-# Let the games begin!
-# No lexicals may exist at this point.
+#S # For PLPsafe scripts
+#S sub safe_eval {
+#S my ($r, $code) = @_;
+#S $r->send_http_header('text/plain');
+#S require Safe;
+#S unless ($PLP::safe) {
+#S $PLP::safe = Safe->new('PLP::Script');
+#S for ( map split, $r->dir_config->get('PLPsafe_module') ) {
+#S $PLP::safe->share('*' . $_ . '::');
+#S s!::!/!g;
+#S require $_ . '.pm';
+#S }
+#S $PLP::safe->permit(Opcode::full_opset());
+#S $PLP::safe->deny(Opcode::opset(':dangerous'));
+#S }
+#S $PLP::safe->reval($code);
+#S }
+
+# Let the games begin! No lexicals may exist at this point.