Changeset 29574

Show
Ignore:
Timestamp:
09.12.2014 21:44:11 (4 years ago)
Author:
litvinovg
Message:

Fix removeprefix and removesuffix fields issues with \ and "

Files:
1 modified

Legend:

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

    r27675 r29574  
    168168    } 
    169169 
    170     map { $_ = "\"$_\""; } @newoptions; 
    171     my $options .= join (",", @newoptions); 
    172  
    173  
    174     eval ("\$classobj = new \$classname([],[$options])"); 
     170    eval ("\$classobj = new \$classname([],[\@newoptions])"); 
    175171    die "$@" if $@; 
    176172