From b0c07d76ba658d696cbdca7e1f4c2ea0018ab074 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 15 Mar 2013 18:43:18 +0000
Subject: perl_checker: fix undeclared variable

---
 bin/drakguard | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'bin')

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
-- 
cgit v1.2.1