Changeset 25803 for main/trunk/greenstone2/perllib/plugin.pm
- Timestamp:
- 2012-06-20T16:56:03+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugin.pm
r24345 r25803 180 180 # create a plugin object 181 181 my ($plugobj); 182 map { $_ = "\"$_\""; } @$pluginoptions; 182 # put quotes around each option to the plugin, unless the option is already quoted 183 map { $_ = "\"$_\"" unless ($_ =~ m/^\s*\".*\"\s*$/) ; } @$pluginoptions; 183 184 my $options = join (",", @$pluginoptions); 184 185 if ($globals) {
Note:
See TracChangeset
for help on using the changeset viewer.