| Subject: | Always unpack @_ first, Nested named subroutine (false positives) |
MULTIPLE FALSE POSITIVES
Always unpack @_ first at line 4, column 1. See page 178 of PBP.
Nested named subroutine at line 6, column 5. Declaring a named sub
inside another named sub does not prevent the inner sub from being
global.
Global variable "*Print" is not all lower case or all upper case at
line 7, column 5. See pages 45,46 of PBP.
Variable declared as "local" at line 7, column 5. See pages 77,78,79 of
PBP.
1 #!/usr/bin/perl
2 use strict;
3
4 sub test ()
5 {
6 sub Print(@);
7 local *Print = sub (@)
8 {
9 print "PREFIX: ", @_, "\n";
10 };
11
12 Print 1, 2, 3;
13 }