Only add spaces if nothing else will be added

charsbar · charsbar · commit f26a18868f8c · 2026-01-04T22:39:30.000+09:00
diff --git a/lib/JSON/PP.pm b/lib/JSON/PP.pm
@@ -450,7 +450,7 @@ sub allow_bigint {
         $self->_down_indent() if ($self->{PROPS}[P_INDENT]);
 
         return '[]' unless @res;
-        my $space = $self->{PROPS}[P_SPACE_AFTER] ? ' ' : '';
+        my $space = $pre eq '' && $self->{PROPS}[P_SPACE_AFTER] ? ' ' : '';
         return '[' . $pre . join( ",$space$pre", @res ) . $post . ']';
     }
 

Original file line number	Diff line number	Diff line change
`@@ -450,7 +450,7 @@ sub allow_bigint {`
`450`	`450`	`$self->_down_indent() if ($self->{PROPS}[P_INDENT]);`
`451`	`451`
`452`	`452`	`return '[]' unless @res;`
`453`		`- my $space = $self->{PROPS}[P_SPACE_AFTER] ? ' ' : '';`
	`453`	`+ my $space = $pre eq '' && $self->{PROPS}[P_SPACE_AFTER] ? ' ' : '';`
`454`	`454`	`return '[' . $pre . join( ",$space$pre", @res ) . $post . ']';`
`455`	`455`	`}`
`456`	`456`