From 460d874ac5b251cb774c14218eefa6dbef7d5c27 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 13 Jan 2003 07:52:40 +0000 Subject: listlength() is obviously just "overhead" for arrays --- perl-install/standalone/harddrake2 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone') 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 ]); -- cgit v1.2.1