diff options
| author | cypherpunks <cypherpunks@torproject.org> | 2016-12-15 10:47:48 +0000 |
|---|---|---|
| committer | Nick Mathewson <nickm@torproject.org> | 2016-12-16 10:52:14 -0500 |
| commit | f43e56a6d0317d062b23faa8a1835145dbf78fcf (patch) | |
| tree | 0913c0446a97aa86d2c20380d86a97bedba00498 /scripts/maint/checkSpace.pl | |
| parent | 67e1eff3211ea1a051d7e2268a504dd22638d65b (diff) | |
| download | tor-f43e56a6d0317d062b23faa8a1835145dbf78fcf.tar.gz tor-f43e56a6d0317d062b23faa8a1835145dbf78fcf.zip | |
Declare all variables to be local
Without the 'my' keyword the variables are global and Perl requires
global symbols to include an explicit package name.
Diffstat (limited to 'scripts/maint/checkSpace.pl')
| -rwxr-xr-x | scripts/maint/checkSpace.pl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/scripts/maint/checkSpace.pl b/scripts/maint/checkSpace.pl index 1b1762a3b3..724b5a5860 100755 --- a/scripts/maint/checkSpace.pl +++ b/scripts/maint/checkSpace.pl @@ -1,16 +1,18 @@ #!/usr/bin/perl -w +my $C = 0; + if ($ARGV[0] =~ /^-/) { - $lang = shift @ARGV; + my $lang = shift @ARGV; $C = ($lang eq '-C'); -# $TXT = ($lang eq '-txt'); } -for $fn (@ARGV) { +for my $fn (@ARGV) { open(F, "$fn"); - $lastnil = 0; - $lastline = ""; - $incomment = 0; + my $lastnil = 0; + my $lastline = ""; + my $incomment = 0; + my $in_func_head = 0; while (<F>) { ## Warn about windows-style newlines. # (We insist on lines that end with a single LF character, not |