$e->{OutTop} = $1 eq 'nothing' ? '' : $1;
} elsif (# parse: expect other wordish things to be comments
m{^(?!or\b)\w{2,} }) {
+ } elsif (m/^$/) {
+ } else {
+ confess "unk rhs $_ ?";
}
$e->{CQ} = $in_changequote;
} else {
'','','', 'normal',
sub { !$_[0]{CQ} } );
write_permode($dir_prefix,
- "&:changequote NEWQUOTE",
- "NEWQUOTE:changequote &",
- "\n",
+ "&:changequote NEWQUOTE\n",
+ "NEWQUOTE:changequote &\n",
+ "",
'changequote',
sub { $_[0]{CQ} } );
oh "# doctest ends\n";