projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git+ssh://github.com/adefaria/clearscm
[clearscm.git]
/
maps
/
bin
/
add2nulllist.pl
diff --git
a/maps/bin/add2nulllist.pl
b/maps/bin/add2nulllist.pl
index
27d694e
..
b6003c2
100755
(executable)
--- a/
maps/bin/add2nulllist.pl
+++ b/
maps/bin/add2nulllist.pl
@@
-21,10
+21,10
@@
sub GetItems {
my @items;
my @items;
- open
FILE
, $filename
+ open
my $file, '<'
, $filename
or error "Unable to open $filename - $!", 1;
or error "Unable to open $filename - $!", 1;
- while (<
FILE
>) {
+ while (<
$file
>) {
my @fields = split;
my %item;
my @fields = split;
my %item;
@@
-33,11
+33,13
@@
sub GetItems {
$item{pattern} = $address[0];
$item{domain} = $address[1];
$item{comment} = $fields[1] ? $fields[1] : '';
$item{pattern} = $address[0];
$item{domain} = $address[1];
$item{comment} = $fields[1] ? $fields[1] : '';
- $it
me
{hit_count} = $fields[2] ? $fields[2] : 0;
+ $it
em
{hit_count} = $fields[2] ? $fields[2] : 0;
push @items, \%item;
} # while
push @items, \%item;
} # while
+ close $file;
+
return @items;
} # GetItems
return @items;
} # GetItems
@@
-82,6
+84,8
@@
sub Add2List {
} # if
$nextseq++;
} # while
} # if
$nextseq++;
} # while
+
+ return;
} # Add2List
# Main
} # Add2List
# Main