| … | |
… | |
| 1548 | |
1548 | |
| 1549 | Expand crossfire pod fragments into protocol xml. |
1549 | Expand crossfire pod fragments into protocol xml. |
| 1550 | |
1550 | |
| 1551 | =cut |
1551 | =cut |
| 1552 | |
1552 | |
| 1553 | use re 'eval'; |
1553 | use re 'eval'; |
| 1554 | |
1554 | |
| 1555 | my $group; |
1555 | my $group; |
| 1556 | my $interior; $interior = qr{ |
1556 | my $interior; $interior = qr{ |
|
|
1557 | # match a pod interior sequence sans C<< >> |
| 1557 | (?: |
1558 | (?: |
| 1558 | \ (.*?)\ (?{ $group = $^N }) |
1559 | \ (.*?)\ (?{ $group = $^N }) |
| 1559 | | < (??{$interior}) > |
1560 | | < (??{$interior}) > |
| 1560 | ) |
1561 | ) |
| 1561 | }x; |
1562 | }x; |
| … | |
… | |
| 1626 | s/\n+$//; # ending lines |
1627 | s/\n+$//; # ending lines |
| 1627 | } |
1628 | } |
| 1628 | |
1629 | |
| 1629 | $xml |
1630 | $xml |
| 1630 | } |
1631 | } |
|
|
1632 | |
|
|
1633 | no re 'eval'; |
| 1631 | |
1634 | |
| 1632 | sub hintmode { |
1635 | sub hintmode { |
| 1633 | $_[0]{hintmode} = $_[1] if @_ > 1; |
1636 | $_[0]{hintmode} = $_[1] if @_ > 1; |
| 1634 | $_[0]{hintmode} |
1637 | $_[0]{hintmode} |
| 1635 | } |
1638 | } |
