perl_checker: fix undeclared variable

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/drakguard b/bin/drakguard
index 4e8201e..92bb3d6 100755
--- a/bin/drakguard
+++ b/bin/drakguard
@@ -316,7 +316,7 @@ else {
     } else {
         $in->ask_warn(N("Warning"), N("The support for Access Control Lists, required by the Block programs feature, is enabled, but not yet activated.") . N("It is necessary to restart your computer to activate it."), $acl_active = 0) }
 }
-update_time_change;
+update_time_change();
 Gtk2->main;
 
 $w->exit(0);
@@ -332,7 +332,7 @@ sub list_add_entry {
 sub list_add_entry_program {
     my ($list, @addr) = @_;
     foreach my $a (@addr) {
-	$b = $a;
+	my $b = $a;
 	$a =~ s/\s(.*)//g;
 	my @abc = map { $_->[0] } @{$list->{data}};
         push @{$list->{data}}, $b