$\="\n";
my $a="(var)";
print "Begin.";
#line# print ". 'line'";
# Auto-prints have extra newlines, since they add a newline in addition
# to the setting of $\. I'm not sure I consider that a bug.
#line> . Auto-print > 'line'
#line#> . Auto-print #> 'line'; $a
print "Always."; #inline# print ". 'inline'";
print "Text with #line# and #inline# stuff.";
# May look different in different versions!
#line#inline# print ". For 'line' _or_ 'inline'";
#line# #inline# print ". For 'line' _and_ 'inline'";
print "Maybe dangerous with #danger58> in v5.8";
#danger1> . Auto, maybe dangerous with #danger1> text
#danger2# print ". Non-auto, maybe dangerous with #danger2> text"
{ no warnings;
;<<'multi'
print ".. Multi-line, 'multi'";
print ".. Treatment of ( #multi# ) depends on version.";
multi
;
};
;my $dummy = <<'unmulti' # comment here, shouldn't affect.
print "\n.. Multi-line, 'unmulti'";
print ".. variable declared\n";
unmulti
;
; $dummy=<<'unmulti'
print "\n.. Multi-line, 'unmulti'; undeclared."
unmulti
;
print "All Done.";