diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-13 07:52:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-13 07:52:40 +0000 |
| commit | 460d874ac5b251cb774c14218eefa6dbef7d5c27 (patch) | |
| tree | d50d62e15fb2117b56e9f75d61c20db2f5f736f9 /perl-install | |
| parent | 79dcce57bacc2e825e4dda6f4e234fd4a6875f07 (diff) | |
| download | drakx-460d874ac5b251cb774c14218eefa6dbef7d5c27.tar drakx-460d874ac5b251cb774c14218eefa6dbef7d5c27.tar.gz drakx-460d874ac5b251cb774c14218eefa6dbef7d5c27.tar.bz2 drakx-460d874ac5b251cb774c14218eefa6dbef7d5c27.tar.xz drakx-460d874ac5b251cb774c14218eefa6dbef7d5c27.zip | |
listlength() is obviously just "overhead" for arrays
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 2fbf2ab3e..f33a8cccb 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -206,7 +206,7 @@ foreach (@harddrake::data::tree) { next if $Ident =~ /PRINTER/ && !$options{PRINTERS_DETECTION}; my @devices = &$detector; - next unless listlength(@devices); # Skip empty class (no devices) + next unless @devices; # Skip empty class (no devices) my $parent_iter = $tree_model->append_set(undef, [ 0 => gtkcreate_pixbuf($icon), 1 => $title ]); |