From cd17f7899482fbcb118114a9b83cfb33db1520af Mon Sep 17 00:00:00 2001 From: fukachan Date: Sun, 27 Jan 2002 13:11:57 +0000 Subject: clarify IO::Adapter definition and clean up get_XXX() functions. remove get_member(), get_active() and get_recipient() define get_next_key() and get_next_value() and clarify thier definitions. --- fml/lib/IO/Adapter/MySQL.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'fml/lib/IO/Adapter/MySQL.pm') diff --git a/fml/lib/IO/Adapter/MySQL.pm b/fml/lib/IO/Adapter/MySQL.pm index 1a5bc529..e48395e6 100644 --- a/fml/lib/IO/Adapter/MySQL.pm +++ b/fml/lib/IO/Adapter/MySQL.pm @@ -1,9 +1,9 @@ #-*- perl -*- # -# Copyright (C) 2000,2001 Ken'ichi Fukamachi +# Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: MySQL.pm,v 1.17 2001/12/22 09:21:13 fukachan Exp $ +# $FML: MySQL.pm,v 1.18 2001/12/24 07:40:57 fukachan Exp $ # @@ -145,7 +145,7 @@ sub setpos } # discard - while ($i-- > 0) { $self->get_next_value();} + while ($i-- > 0) { $self->get_next_key();} } @@ -193,7 +193,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001 Ken'ichi Fukamachi +Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. -- cgit v1.2.1