From 1a9b3510845e2cb6cf6cf76ef71e4c5a6d9d3b67 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Jul 2007 06:12:50 +0000
Subject: [PATCH] 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
---
 t/base/lex.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/base/lex.t b/t/base/lex.t
index 984cdff..464e68b 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";}
 
-- 
2.7.4