diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 22:20:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 22:20:22 +0000 |
| commit | 22ad938758373ec4e2f8490d62f2cdc237d50d7c (patch) | |
| tree | 7848808920e41e4bbdee22867646139e7a907099 /perl-install/harddrake/ui.pm | |
| parent | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (diff) | |
| download | drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.gz drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.bz2 drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.xz drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.zip | |
- replace ... =~ 'foo' with ... =~ /foo/
- remove unneeded parentheses for things like ... if (...)
Diffstat (limited to 'perl-install/harddrake/ui.pm')
| -rw-r--r-- | perl-install/harddrake/ui.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index c4009e5e9..bc4706c16 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm @@ -117,7 +117,7 @@ sub detect { my @class_tree; foreach (@harddrake::data::tree) { my ($Ident, $title, $icon, $configurator, $detector) = @$_; - next if (ref($detector) ne "CODE"); #skip class witouth detector + next if ref($detector) ne "CODE"; #skip class witouth detector next if $Ident =~ /(MODEM|PRINTER)/ && "@ARGV" =~ /test/; next if $Ident =~ /MODEM/ && !$options{MODEMS_DETECTION}; next if $Ident =~ /PRINTER/ && !$options{PRINTERS_DETECTION}; @@ -125,7 +125,7 @@ sub detect { # standalone::explanations("Probing %s class\n", $Ident); my @devices = &$detector; - next if (!listlength(@devices)); # Skip empty class (no devices) + next if !listlength(@devices); # Skip empty class (no devices) my $devices_list; foreach (@devices) { $_->{custom_id} = harddrake::data::custom_id($_, $title); |