properly handle formatting code with alternative delimiters

Author: book

Porting/merge-deltas.pl

@@ -142,7 +142,17 @@ ( $tree )
             return map( as_pod($_), @nodes ), "\n\n";
         },
         X => sub ( $name, $attr, @nodes ) {
-            return "$name<", map( as_pod($_), @nodes ), '>';
+            my ( $open, $spacer, $close ) =
+              $attr->{'~bracket_count'}
+              ? (
+                '<' x $attr->{'~bracket_count'},
+                ' ',
+                '>' x $attr->{'~bracket_count'}
+              )
+              : ( '<', '', '>' );
+            return "$name$open$spacer",
+              map( as_pod($_), @nodes ),
+              "$spacer$close";
         },
         L => sub ( $name, $attr, @nodes ) {
             return "$name<$attr->{raw}>";
@@ -186,15 +196,17 @@ ( $tree )
 my $previous = join '.', '5', ( split /\./, $version )[1] - 2;
 
 # the version number used for delta
+# TODO: this should be computable
 my $tag_stable = $version =~ tr/.//dr;
 my $tag_devel  = $tag_stable - 1;
 
 # Note: the parser can only be used *once* per file
-sub tree_for ($file)  {
+sub tree_for ($file) {
     my $parser = Pod::Simple::SimpleTree->new;
     $parser->keep_encoding_directive(1);
     $parser->preserve_whitespace(1);
-    $parser->accept_targets('*');    # for & begin/end
+    $parser->accept_targets('*');          # for & begin/end
+    $parser->_output_is_for_JustPod(1);    # for ~bracket_count
     $parser->parse_file($file)->root;
 }