avoid literal control characters in change#3039

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

p4raw-id: //depot/perl@3040

1 files changed, 3 insertions, 3 deletions

diff --git a/t/base/lex.t b/t/base/lex.t
index 325fd42992..6bb39d0ae7 100755
--- 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 ($ {} != 17) { print "not "  }
+  if (eval "\$ {\cX}" != 17 or $@) { print "not "  }
   print "ok 32\n";
 
-  $ = 24;                          # Literal control character
-  if ($ != 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";