Retract #13496 for now.
Jarkko Hietaniemi [Thu, 6 Dec 2001 20:46:04 +0000 (20:46 +0000)]
p4raw-id: //depot/perl@13499

t/base/lex.t
t/base/term.t

index 4166c18..54d6c93 100755 (executable)
@@ -53,8 +53,8 @@ $foo
 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
index 2d3fe5a..000bff1 100755 (executable)
@@ -19,7 +19,7 @@ else {print "not ok 1\n";}
 
 # 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