From f43e56a6d0317d062b23faa8a1835145dbf78fcf Mon Sep 17 00:00:00 2001
From: cypherpunks <cypherpunks@torproject.org>
Date: Thu, 15 Dec 2016 10:47:48 +0000
Subject: 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.
---
 scripts/maint/checkSpace.pl | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'scripts')

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
-- 
cgit v1.2.3-54-g00ecf