Changeset 20613

Timestamp:

2009-09-16T15:06:14+12:00 (15 years ago)

Author:

kjdon

Message:

escape backslashes in plugin options before passing to the eval (new plugin)

File:

• gsdl/trunk/perllib/plugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugin.pm

@@ -175 +175 @@
         $options .= "$globals";
     }
+    # need to escape backslash before putting in to the eval
+    $options =~ s/\\/\\\\/g;
     $options =~ s/\$/\\\$/g;
-
     eval ("\$plugobj = new \$pluginname([],[$options])");
     die "$@" if $@;