Yes, that was valid Perl syntax :x --- t/cindex-join.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/t/cindex-join.t b/t/cindex-join.t index 0972afa4..2836eb6c 100644 --- a/t/cindex-join.t +++ b/t/cindex-join.t @@ -41,7 +41,7 @@ EOM while (my ($url, $v, $ng) = splice(@inboxes, 0, 3)) { my ($key) = ($url =~ m!/([^/]+)\z!); - my @opt = (version => $v, tmpdir => "$tmpdir/$key" -no_gc => 1); + my @opt = (version => $v, tmpdir => "$tmpdir/$key", -no_gc => 1); $inboxes{$key} = create_inbox $key, @opt, sub { my ($im, $ibx) = @_; $im->done;