avoid literal control characters in change#3039

p4raw-link: @3039 on //depot/perl: 2b92dfceaa9d709661beb0761c3c790732df0cbc

p4raw-id: //depot/perl@3040

diff --git a/t/base/lex.t b/t/base/lex.t
index 325fd42..6bb39d0 100755 (executable)
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -129,11 +129,11 @@ print $foo;
   print "ok 31\n";
  
 # Does the syntax where we use the literal control character still work?
-  if ($ {\18} != 17) { print "not "  }
+  if (eval "\$ {\cX}" != 17 or $@) { print "not "  }
   print "ok 32\n";
 
-  $\ e = 24;                          # Literal control character
-  if ($\ e != 24) {  print "not "  }  # Literal control character
+  eval "\$\cN = 24";                 # Literal control character
+  if ($@ or ${"\cN"} != 24) {  print "not "  }
   print "ok 33\n";
   if ($^N != 24) {  print "not "  }  # Control character escape sequence
   print "ok 34\n";