diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-13 06:12:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-13 06:12:50 +0000 |
| commit | 1a9b3510845e2cb6cf6cf76ef71e4c5a6d9d3b67 (patch) | |
| tree | c8c6a31bc5b2b4eba7aa2f8eee068e409037a612 /t/base/lex.t | |
| parent | 35722e7202d303b4034282b06c77d29446974837 (diff) | |
| download | perl-1a9b3510845e2cb6cf6cf76ef71e4c5a6d9d3b67.tar.gz | |
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
Diffstat (limited to 't/base/lex.t')
| -rwxr-xr-x | t/base/lex.t | 2 |
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";} |