push @params, "--cgiurl=$cgiurl" if $cgiurl;
push @params, "--historyurl=$historyurl" if $historyurl;
push @params, "--anonok" if $anonok;
- my $params=join(" ", @params);
+ my $params=join(" ", map { "\'$_\'" } @params);
my $call='';
foreach my $p ($this, $this, @params) {
$call.=qq{"$p", };
GetOptions(
"wikiname=s" => \$wikiname,
"verbose|v" => \$verbose,
- "rebuild" => \$rebuild,
- "wrapper" => \$wrapper,
+ "rebuild!" => \$rebuild,
+ "wrapper!" => \$wrapper,
"svn!" => \$svn,
"anonok!" => \$anonok,
- "cgi" => \$cgi,
+ "cgi!" => \$cgi,
"url=s" => \$url,
"cgiurl=s" => \$cgiurl,
"historyurl=s" => \$historyurl,