Silence mandatory warning by using @# instead of $#.

"no warnings" is probably a bit inappropriate for a
base test. Putting -X on the command-line is probably
not a good idea, since it may hide other interesting
warnings in the future.

p4raw-id: //depot/perl@31601

1 files changed, 1 insertions, 1 deletions

diff --git a/t/base/lex.t b/t/base/lex.t
index 984cdff39b..464e68bb89 100755
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -7,7 +7,7 @@ $x = 'x';
 print "#1	:$x: eq :x:\n";
 if ($x eq 'x') {print "ok 1\n";} else {print "not ok 1\n";}
 
-$x = $#;	# this is the register $#
+$x = $#[0];
 
 if ($x eq '') {print "ok 2\n";} else {print "not ok 2\n";}