Changeset 29574

Timestamp:

2014-12-09T21:44:11+13:00 (9 years ago)

Author:

Georgiy Litvinov

Message:

Fix removeprefix and removesuffix fields issues with \ and "

File:

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

main/trunk/greenstone2/perllib/classify.pm

@@ -168 +168 @@
     }
 
-    map { $_ = "\"$_\""; } @newoptions;
-    my $options .= join (",", @newoptions);
-
-
-    eval ("\$classobj = new \$classname([],[$options])");
+    eval ("\$classobj = new \$classname([],[\@newoptions])");
     die "$@" if $@;