… | … | ||
---|---|---|---|
1564 | my ($self, $pod) = @_; | 1564 | my ($self, $pod) = @_; |
1565 | 1565 | ||
1566 | my $xml; | 1566 | my $xml; |
1567 | 1567 | ||
1568 | while () { | 1568 | while () { |
1569 | if ($pod =~ /\G( (?: [^BCGHITU]+ | .(?=[^<]) )+ )/xgcs) { | 1569 | if ($pod =~ /\G( (?: [^BCGHITU]+ | .(?!<) )+ )/xgcs) { |
1570 | $group = $1; | 1570 | $group = $1; |
1571 | 1571 | ||
1572 | $group =~ s/&/&/g; | 1572 | $group =~ s/&/&/g; |
1573 | $group =~ s/</</g; | 1573 | $group =~ s/</</g; |
1574 | 1574 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |