perl_checker fixes

1 files changed, 7 insertions, 7 deletions

diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 891dcf5f8..3daa9d5dc 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -151,6 +151,7 @@ my %files = (
 my $yy = gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("search")) , clicked => \&search),0);
 my $log_text = new Gtk2::TextView;
 $log_text->set_property('editable', 0);
+
 my $log_buf = $log_text->get_buffer();
 my $refcount_search;
 #### far from window
@@ -171,7 +172,7 @@ gtkadd($my_win->{window},
 							      ),
 						    gtkpack_(new Gtk2::HBox(0,0),
 							     1, gtkadd(gtkset_border_width(new Gtk2::Frame(N("Choose file")),2),
-								       gtkpack (gtkset_border_width(new Gtk2::VBox(0,0),0),
+								       gtkpack (gtkset_border_width(Gtk2::VBox->new(0,0),0),
 										map { $toggle{$_} = gtksignal_connect(new Gtk2::CheckButton($files{$_}{desc}), 
 														      clicked => sub {
 															  $refcount_search++; 
@@ -192,7 +193,7 @@ gtkadd($my_win->{window},
 		!$::isExplain ? (1, gtkadd(new Gtk2::Frame(N("Content of the file")),
 					   create_scrolled_window($log_text)
 					   )) : (1, create_scrolled_window($log_text)),
-		if_(!$::isExplain, 0, gtkadd (gtkset_border_width(gtkset_layout(Gtk2::HButtonBox->new, 'end'), 5),
+		if_(!$::isExplain, 0, gtkadd(gtkset_border_width(gtkset_layout(Gtk2::HButtonBox->new, 'end'), 5),
 					      if_(!$::isFile, gtksignal_connect(new Gtk2::Button(N("Mail alert")), 
 										clicked => sub { eval { alert_config() };  
 												 if ($@ =~ /wizcancel/) {
@@ -242,7 +243,6 @@ sub parse_file {
   $file =~ s/\.gz$//;
   gtkadd(my $win_pb = gtkset_modal(new Gtk2::Window('toplevel'), 1),
 	 gtkpack(new Gtk2::VBox(2,0),
-#BUG: the returned string is cutted on accents with a PANGO error (s/N(/sprintf(/)
 		 new Gtk2::Label(" " . N("please wait, parsing file: %s", $files{$_}{desc}) . " "),
 		 my $pbar = new Gtk2::ProgressBar()
 		 )
@@ -260,7 +260,7 @@ sub parse_file {
   $ey = $ey . $::Word if $::isWord;
 
   if ($cal_mode) {
-      my ($year, $month, $day) = $cal->get_date();
+      my (undef, $month, $day) = $cal->get_date();
       $ey = $months[$month]."\\s{1,2}$day\\s.*$ey.*\n";
   }
 
@@ -329,7 +329,7 @@ sub logcolorize {
     }
     # Extract PID if present
     if ($rec[1] =~ /\[(\d+)\]\:/) {
-	my($pid) = $1;
+	my ($pid) = $1;
 	$rec[1] =~ s/\[$1\]\://;
 	log_output($rec[1] . "[",  { %n, 'foreground' => 'green' });
 	log_output($pid,  { %b, 'foreground' => 'black' });
@@ -385,7 +385,7 @@ my $r = "*** ". chomp_(`date`) . " ***\n";
 
 my $initdir = "/etc/init.d";
 
-    my ($load,$mail,$email,$smtp); 
+    my ($load, $email, $smtp); 
     $load = 3;
 
   begin:
@@ -410,7 +410,7 @@ my $initdir = "/etc/init.d";
 		 };
     my @installed_d;
     foreach my $serv (keys %$service) {
-	-e "$initdir/$serv" && push (@installed_d,$serv);
+	-e "$initdir/$serv" && push (@installed_d, $serv);
     }
   
     $in->ask_from(N("service setting"),