diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-07 14:53:11 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-07 14:53:11 +0000 |
| commit | 48822f696b6c343afe3181e41f794451c69b1550 (patch) | |
| tree | 933200faa72e179d31e605995ea49970d0b520d9 /perl-install | |
| parent | deda8b054aa5fc3aa86afa5e5534d0313c75701d (diff) | |
| download | drakx-backup-do-not-use-48822f696b6c343afe3181e41f794451c69b1550.tar drakx-backup-do-not-use-48822f696b6c343afe3181e41f794451c69b1550.tar.gz drakx-backup-do-not-use-48822f696b6c343afe3181e41f794451c69b1550.tar.bz2 drakx-backup-do-not-use-48822f696b6c343afe3181e41f794451c69b1550.tar.xz drakx-backup-do-not-use-48822f696b6c343afe3181e41f794451c69b1550.zip | |
perl checker fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 4 | ||||
| -rw-r--r-- | perl-install/harddrake/ui.pm | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 5ea0e8943..6072d8d60 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -152,7 +152,7 @@ sub get_usb_storage_info { if (@choices > 1) { @choices = grep { $_->{info} =~ /^\Q$usbs{$host}{vendor_name}/ } @choices; @choices or log::l("weird, can't find the good entry host$host from /proc/scsi/usb-storage-*/* in /proc/scsi/scsi"), next; - @choices == 1 or log::l("argh, can't determine the good entry host$host from /proc/scsi/usb-storage-*/* in /proc/scsi/scsi"), next; + @choices == 1 or log::l("argh, can't determine the good entry host$host from /proc/scsi/usb-storage-*/* in /proc/scsi/scsi"), next } add2hash($choices[0], $usbs{$host}); push @informed, $choices[0]; @@ -494,7 +494,7 @@ sub stringlist { $_->{description} eq '(null)' ? sprintf("Vendor=0x%04x Device=0x%04x", $_->{vendor}, $_->{id}) : $_->{description}, $_->{media_type} ? sprintf(" [%s]", $_->{media_type}) : '', $_->{subid} && $_->{subid} != 0xffff ? sprintf(" SubVendor=0x%04x SubDevice=0x%04x", $_->{subvendor}, $_->{subid}) : '', - ); + ) } probeall(@_); } diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index 8949eab32..02109c60e 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm @@ -157,7 +157,7 @@ sub new { unless ($::isEmbedded) { $in = 'interactive'->vnew('su', 'default'); $wait = $in->wait_message(N("Please wait"), N("Detection in progress")); - my_gtk::flush; + my_gtk::flush(); } %options = getVarsFromSh($conffile); my @class_tree = &detect; @@ -198,9 +198,9 @@ sub new { $cmap->color_alloc($wcolor); $tree->set_column_auto_resize(0, 1); - $tree->signal_connect( 'select_row', sub { - my ( $ctree, $row, $column, $event ) = @_; - my $node = $ctree->node_nth( $row ); + $tree->signal_connect('select_row', sub { + my ($ctree, $row, $column, $event) = @_; + my $node = $ctree->node_nth($row); my ($name, undef) = $tree->node_get_pixtext($node,0); my $data = $tree->{data}{$name}; @@ -247,7 +247,7 @@ sub new { # Fill the graphic tree with a "tree branch" widget per device category foreach (@class_tree) { - my ($devices_list, $arg, $icon, $arg2, $title, $configurator ) = @$_; + my ($devices_list, $arg, $icon, $arg2, $title, $configurator) = @$_; my $hw_class_tree = $tree->insert_node(undef, undef, @$arg, (gtkcreate_png($icon)) x 2, @$arg2); # Fill the graphic tree with a "tree leaf" widget per device foreach (@$devices_list) { @@ -273,7 +273,7 @@ sub new { sub quit_global { - kill(15, $pid) if ($pid); + kill(15, $pid) if $pid; setVarsInSh($conffile, \%options); $w->{rwindow}->destroy; $in->exit; |