summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-20 12:51:50 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-20 12:51:50 +0000
commit963f99aabc0ab008cc5a1092433650628eba9464 (patch)
tree3e60f9d0a43725f75463e7a2c2a3371095e75046 /perl-install/standalone/drakfloppy
parent52f010c43b8961680e7f6262c49177bf8a5c610a (diff)
downloaddrakx-backup-do-not-use-963f99aabc0ab008cc5a1092433650628eba9464.tar
drakx-backup-do-not-use-963f99aabc0ab008cc5a1092433650628eba9464.tar.gz
drakx-backup-do-not-use-963f99aabc0ab008cc5a1092433650628eba9464.tar.bz2
drakx-backup-do-not-use-963f99aabc0ab008cc5a1092433650628eba9464.tar.xz
drakx-backup-do-not-use-963f99aabc0ab008cc5a1092433650628eba9464.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy18
1 files changed, 6 insertions, 12 deletions
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;
@@ -315,14 +315,6 @@ sub select_item {
}
#-------------------------------------------------------------
-# menu callback functions
-#-------------------------------------------------------------
-
-sub print_hello {
- print "mcdtg !\n";
-}
-
-#-------------------------------------------------------------
# the function
#-------------------------------------------------------------
sub build_it {
@@ -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);