summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-20 12:19:48 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-20 12:19:48 +0000
commit9cad98dbf947e0dc929cd81bab53e4b23f1e8538 (patch)
tree508de6c542336925a3ad992a3ce5ac9a57c094eb /perl-install
parentecf016d700867a7b9d623ca733ae831c4d27cca2 (diff)
downloaddrakx-backup-do-not-use-9cad98dbf947e0dc929cd81bab53e4b23f1e8538.tar
drakx-backup-do-not-use-9cad98dbf947e0dc929cd81bab53e4b23f1e8538.tar.gz
drakx-backup-do-not-use-9cad98dbf947e0dc929cd81bab53e4b23f1e8538.tar.bz2
drakx-backup-do-not-use-9cad98dbf947e0dc929cd81bab53e4b23f1e8538.tar.xz
drakx-backup-do-not-use-9cad98dbf947e0dc929cd81bab53e4b23f1e8538.zip
more perl_checker fixes
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfloppy22
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 6168e9265..1adb3f039 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -307,11 +307,11 @@ sub select_item {
my $i;
$file =~ s|/lib/modules/.*?/||g;
for ($i = 0; $i < $lr; $i++) {
- last if ($file eq $list->get_text($i, 0));
+ last if $file eq $list->get_text($i, 0);
}
- print $file,"\n";
+ print $file, "\n";
- $list->append($file, $size) if ($i == $lr) or ($lr == 0);
+ $list->append($file, $size) if $i == $lr or $lr == 0;
}
#-------------------------------------------------------------
@@ -327,13 +327,13 @@ sub print_hello {
#-------------------------------------------------------------
sub build_it {
my $y;
- my $co = "/sbin/mkbootdisk --noprompt --verbose --device ". $device_combo->entry->get_text();
+ my $co = "/sbin/mkbootdisk --noprompt --verbose --device " . $device_combo->entry->get_text();
if ($expert_mode) {
$co .= " --mkinitrdargs -f" if $force_button->get_active;
$co .= " --mkinitrdargs --ifneeded" if $needed_button->get_active;
$co .= " --mkinitrdargs --omit-scsi-modules" if $scsi_button->get_active;
$co .= " --mkinitrdargs --omit-raid-modules" if $raid_button->get_active;
- for (my $i=0; $i<$list->rows(); $i++) {
+ for (my $i = 0; $i < $list->rows(); $i++) {
$y = $list->get_text($i, 0);
$y =~ s|.*?/||g;
$co .= " --mkinitrdargs --with=" . $y; #. "/usr/lib/" . $kernel_combo->entry->get_text() . "/" . $y;
@@ -344,13 +344,13 @@ sub build_it {
create_dialog(N("Be sure a media is present for the device %s", $device_combo->entry->get_text()), 1) or return;
# we test if the media is present
test:
- my $a = "dd count=1 if=/dev/null of=". $device_combo->entry->get_text() ." 2>&1";
- 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; }
+ my $a = "dd count=1 if=/dev/null of=" . $device_combo->entry->get_text() . " 2>&1";
+ 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 }
- open STATUS, $co or do { create_dialog(N("Unable to fork: %s", $!), 0); return; };
+ open STATUS, $co or do { create_dialog(N("Unable to fork: %s", $!), 0); return };
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);
@@ -368,7 +368,7 @@ sub has_sub_trees {
my ($dir) = @_;
foreach my $file (glob_("$dir/*")) {
- return 1 if ( -d $file ) or ($file =~ /\.o(\.gz)?$/);
+ return 1 if -d $file or $file =~ /\.o(\.gz)?$/;
}
return (0);