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.

2 files changed, 6 insertions, 6 deletions

diff --git a/fml/lib/IO/t/array_map.pl b/fml/lib/IO/t/array_map.pl
index 10a46cbd..8079ad74 100755
--- a/fml/lib/IO/t/array_map.pl
+++ b/fml/lib/IO/t/array_map.pl
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  Copyright (C) 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. 
 #
-# $FML: array_map.pl,v 1.3 2001/05/04 14:32:34 fukachan Exp $
+# $FML: array_map.pl,v 1.4 2001/08/19 16:12:25 fukachan Exp $
 #
 
 use Carp;
@@ -19,7 +19,7 @@ if ($obj->error) { croak( $obj->error );}
 
 my $x;
 my @recipients = ();
-while ($x = $obj->get_recipient) { push(@recipients, $x); }
+while ($x = $obj->get_next_key) { push(@recipients, $x); }
 $obj->close;
 
 my $ok = 0;
diff --git a/fml/lib/IO/t/unixgroup_map.pl b/fml/lib/IO/t/unixgroup_map.pl
index 392ae842..2cde661e 100755
--- a/fml/lib/IO/t/unixgroup_map.pl
+++ b/fml/lib/IO/t/unixgroup_map.pl
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  Copyright (C) 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. 
 #
-# $FML: unixgroup_map.pl,v 1.4 2001/05/04 14:32:34 fukachan Exp $
+# $FML: unixgroup_map.pl,v 1.5 2001/08/19 16:12:25 fukachan Exp $
 #
 
 use Carp;
@@ -22,7 +22,7 @@ if ($obj->error) { croak( $obj->error );}
 
 my $x;
 my @x = ();
-while ($x = $obj->get_recipient) { push(@x, $x);}
+while ($x = $obj->get_next_key) { push(@x, $x);}
 $obj->close;
 
 my $bad = 0;