Changeset 22087 for main

Timestamp:

2010-05-14T12:34:32+12:00 (14 years ago)

Author:

sjm84

Message:

Corrected an error with escaping

File:

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

main/trunk/greenstone2/perllib/plugin.pm

@@ -189 +189 @@
     }
     # need to escape backslash before putting in to the eval
-    $options =~ s/\\/\\\\/g;
+    # but watch out for any \" (which shouldn't be further escaped)
+    $options =~ s/\\([^"])/\\\\$1/g;
     $options =~ s/\$/\\\$/g;
+
+
     eval ("\$plugobj = new \$pluginname([],[$options])");
     die "$@" if $@;