| Subject: | Special array name '@$', used as @{$} or $#{$} |
% perl -MO=Deparse test.pl
BEGIN { $^W = 1; }
use warnings;
use strict;
@$ = 'test';
print $#{$};
test.pl syntax OK
% /usr/bin/site_perl/perltidy -st -se test.pl -g
#!/usr/bin/perl
use strict;
use warnings;
@{
$} = qw(test);
print $#{
$};
7: final indentation level: 2
Final nesting depth of '{'s is 2
The most recent un-matched '{' is on line 7
7: print $#{$};
^
7: The logfile test.pl.LOG may contain useful information
| Subject: | test.pl.LOG |
perltidy version 20120714 log file on a linux system, OLD_PERL_VERSION=5.016002
Configuration and command line parameters for this run:
-st -se -g
To find error messages search for 'WARNING' with your editor
Indentation will be with 4 spaces
Line 1 implies starting-indentation-level = 0
The nesting depths in the table below are at the start of the lines.
The indicated output line numbers are not always exact.
ci = levels of continuation indentation; bk = 1 if in BLOCK, 0 if not.
in:out indent c b nesting code + messages; (messages begin with >>>)
lines levels i k (code begins with one '.' per indent level)
------ ----- - - -------- -------------------------------------------
L3:3 i0:0 0 1 use strict;
L4:4 i0:0 0 1 use warnings;
L6:6 i0:0 0 1 @{$} = qw(test);
L7:8 i0:1 1 0 { .print $#{$};
No indentation disagreement seen
No lines exceeded 80 characters
Maximum output line length was 18 at line 7
WARNING: final indentation level: 2
######################## WARNING #########################
Final nesting depth of '{'s is 2
The most recent un-matched '{' is on line 7
7: print $#{$};
^
############################################################