mirrors/tor
1
0
Fork 0
mirror of https://gitlab.torproject.org/tpo/core/tor.git synced 2025-02-20 13:34:51 +01:00
Code Issues Projects Releases Wiki Activity

Declare all variables to be local

Browse source 
Without the 'my' keyword the variables are global and Perl requires
global symbols to include an explicit package name.
This commit is contained in:
cypherpunks 2016-12-15 10:47:48 +00:00 • committed by Nick Mathewson
parent 67e1eff321
commit f43e56a6d0
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scripts/maint/checkSpace.pl
View file

@ -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