init: drop extraneous `+'

It's actually valid Perl syntax, but still confusing to look at.

Fixes: add90b9504f4 ("support -C (chdir) for most non-daemon commands")

diff --git a/script/public-inbox-init b/script/public-inbox-init
index 33bee31018cbe2697b8435ab8a6bd0665f2eccdc..b3e94faf1801955c55f3479f7ba4a8ba6c07b26a 100755 (executable)
--- a/script/public-inbox-init
+++ b/script/public-inbox-init
@@ -60,7 +60,7 @@ my $inboxdir = shift @ARGV or $usage_cb->();
 my $http_url = shift @ARGV or $usage_cb->();
 my (@address) = @ARGV;
 @address or $usage_cb->();
-+PublicInbox::Admin::do_chdir(\@chdir);
+PublicInbox::Admin::do_chdir(\@chdir);
 
 @c_extra = map {
        my ($k, $v) = split(/=/, $_, 2);

diff --git a/t/init.t b/t/init.t
index abe3a372606d8ab75fc91a7c9997ab75245c7cc5..177c22b663d47d3fc1b388402b12e52640b4d629 100644 (file)
--- a/t/init.t
+++ b/t/init.t
@@ -216,6 +216,13 @@ SKIP: {
        is($n, 13, 'V1 NNTP article numbers skipped via --skip-artnum');
 }
 
+{
+       my $cmd = [ qw(-init -C), "$tmpdir", qw(chdirlist chdirlist),
+                  qw(http://example.com/chdirlist chdirlist@example.com)];
+       ok(run_script($cmd), '-init with -C (chdir)');
+       ok(-d "$tmpdir/chdirlist", '-C processed correctly');
+}
+
 done_testing();
 
 sub read_indexlevel {