p4raw-id: //depot/perl@13499
EOF
EOE
-print <<'EOS' . <<\EOF;
-ok 12 - make sure single quotes are honored \nnot ok
+print <<`EOS` . <<\EOF;
+echo ok 12
EOS
ok 13
EOF
# check `` processing
-$x = `$^X -le "print 'hi there'"`;
+$x = `echo hi there`;
if ($x eq "hi there\n") {print "ok 2\n";} else {print "not ok 2\n";}
# check $#array