Changeset 22087

Show
Ignore:
Timestamp:
14.05.2010 12:34:32 (9 years ago)
Author:
sjm84
Message:

Corrected an error with escaping

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugin.pm

    r22037 r22087  
    189189    } 
    190190    # need to escape backslash before putting in to the eval 
    191     $options =~ s/\\/\\\\/g; 
     191    # but watch out for any \" (which shouldn't be further escaped) 
     192    $options =~ s/\\([^"])/\\\\$1/g; 
    192193    $options =~ s/\$/\\\$/g; 
     194 
     195 
    193196    eval ("\$plugobj = new \$pluginname([],[$options])"); 
    194197    die "$@" if $@;