From 963f99aabc0ab008cc5a1092433650628eba9464 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 20 Nov 2002 12:51:50 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/drakfloppy | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

(limited to 'perl-install/standalone/drakfloppy')

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 1adb3f039..b99012370 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -83,7 +83,7 @@ my $ker_hbox = new Gtk::HBox (1, 0);
 my $kernel_combo = new Gtk::Combo();
 my $kernel_button = new Gtk::Button(N("default"));
 $kernel_combo->disable_activate();
-$kernel_combo->set_popdown_strings( do {
+$kernel_combo->set_popdown_strings(do {
     opendir YREP, "/lib/modules" or die N("DrakFloppy Error: %s", $!);
     my @files_modules = grep !/^\.\.?$/, readdir YREP;
     closedir YREP;
@@ -153,7 +153,7 @@ $global_vbox->pack_start($expert_main_frame, 1, 1, 0);
 
 # Create a ScrolledWindow for the tree
 my $tree_scrolled_win = new Gtk::ScrolledWindow();
-$tree_scrolled_win->set_usize( 200, $::isEmbedded ? 0 : 175);
+$tree_scrolled_win->set_usize(200, $::isEmbedded ? 0 : 175);
 $expert_pane->add1($tree_scrolled_win);
 $tree_scrolled_win->set_policy('automatic', 'automatic');
 
@@ -302,7 +302,7 @@ sub collapse_tree {
 sub select_item  {
   my ($widget, $file) = @_;
   return if -d $file;
-  my  $size = (lstat( $file))[7];
+  my  $size = (lstat($file))[7];
   my $lr = $list->rows();
   my $i;
   $file =~ s|/lib/modules/.*?/||g;
@@ -314,14 +314,6 @@ sub select_item  {
   $list->append($file, $size) if $i == $lr or $lr == 0;
 }
 
-#-------------------------------------------------------------
-# menu callback functions
-#-------------------------------------------------------------
-
-sub print_hello {
-  print "mcdtg !\n";
-}
-
 #-------------------------------------------------------------
 # the function
 #-------------------------------------------------------------
@@ -348,9 +340,11 @@ sub build_it {
   my $b = `$a`;
   if ($b =~ /dd/) { create_dialog(N("There is no medium or it is write-protected for device %s.\nPlease insert one.", $device_combo->entry->get_text()), 1) ? goto test : return 0 }
   
+  local *STATUS;
   open STATUS, $co or do { create_dialog(N("Unable to fork: %s", $!), 0); return };
+  local $_;
   while (<STATUS>) {
-      $output->insert( $fixed_font, undef, undef, $_);
+      $output->insert($fixed_font, undef, undef, $_);
   }
   close STATUS or create_dialog(N("Unable to close properly mkbootdisk: \n %s \n %s", $!, $?), 0);
   
-- 
cgit v1.2.1