# New Ticket Created by Tom Browder
# Please include the string: [perl #132341]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=132341 >
Consider the following pod 6 tables:
=begin table
a | b | c
m | n | o
x | y
=end table
my $r = $=pod[0];
is $r.contents.elems, 3;
is $r.contents[0].join(','), 'a,b,c'; # 3 cells
is $r.contents[1].join(','), 'l,m,n'; # 3 cells
is $r.contents[2].join(','), 'x,y'; # 2 cells; should change to
"x,y," after a fix for this bug (3 cells vs 2)
=table
X | O |
---+---+---
| X | O
---+---+---
| | X
$r = $=pod[1];
is $r.contents.elems, 3;
is $r.contents[0].join(','), 'X,O'; # 2 cells; should change to
"X,O," after a fix for this bug (3 cells vs 2)
is $r.contents[1].join(','), ',X,O'; # 3 cells
is $r.contents[2].join(','), ',,X'; # 3 cells
