=cut without preceding pod directive

[Mark-Jason Dominus]

What is the meaning of the following:

--------------------------------BEGIN EXAMPLE

print "1\n";

=cut

print "2\n";


--------------------------------END OF EXAMPLE


What should be printed?

Perl 5.6.1 prints "1" only, but pod2text produces no output.

Similarly, pod2text produces no output for the following example:

--------------------------------BEGIN EXAMPLE

print "1\n";

=cut

print "2\n";

=cut

print "3\n";

=cut

print "4\n";

=cut

print "5\n";

--------------------------------END OF EXAMPLE

But Perl prints 1, 3, 5.

Sean, you might want to mention this in your spec.