diff options
| author | fukachan <fukachan> | 2003-11-27 04:25:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-11-27 04:25:07 +0000 |
| commit | 664e98f904a7f18b92af43014a1e3c03367c6a5d (patch) | |
| tree | 625de360636b883fd21d70b315994380c796c8fb /fml/lib/FML/User | |
| parent | 6dbcecd36fb4fb15abc301ba2e0849b8c39dff5f (diff) | |
| download | fml8-664e98f904a7f18b92af43014a1e3c03367c6a5d.tar.gz fml8-664e98f904a7f18b92af43014a1e3c03367c6a5d.tar.bz2 fml8-664e98f904a7f18b92af43014a1e3c03367c6a5d.zip | |
check if $buf retruned from IO::Adapter is defined.
Diffstat (limited to 'fml/lib/FML/User')
| -rw-r--r-- | fml/lib/FML/User/Control.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/User/Control.pm b/fml/lib/FML/User/Control.pm index 61f7da8e..1145f674 100644 --- a/fml/lib/FML/User/Control.pm +++ b/fml/lib/FML/User/Control.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Control.pm,v 1.4 2003/11/26 09:17:46 fukachan Exp $ +# $FML: Control.pm,v 1.5 2003/11/26 11:02:05 fukachan Exp $ # package FML::User::Control; @@ -373,8 +373,12 @@ sub print_userlist my $x = ''; my $buf; $obj->open; + + LINE: while ($x = $obj->get_key_values_as_array_ref()) { $buf = join(" ", @$x) if ref($x) eq 'ARRAY'; + next LINE unless defined $buf; + next LINE unless $buf; if ($style eq 'html') { # XXX-TODO: html-ify address ? |