summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-11-29 06:31:48 +0000
committerfukachan <fukachan>2003-11-29 06:31:48 +0000
commit03859baeef5ed510476f59a3eae1360f5dbffc62 (patch)
tree0cd0156ce3534f3e6f906c5dbdb8d6bfef05c679
parented52b4cb7dfe23f0e648d2d6f33fac19b53c91ce (diff)
downloadfml8-03859baeef5ed510476f59a3eae1360f5dbffc62.tar.gz
fml8-03859baeef5ed510476f59a3eae1360f5dbffc62.tar.bz2
fml8-03859baeef5ed510476f59a3eae1360f5dbffc62.zip
FNF
-rw-r--r--fml/lib/IO/Adapter/Array.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm
index d9c7b58f..d4898ee5 100644
--- a/fml/lib/IO/Adapter/Array.pm
+++ b/fml/lib/IO/Adapter/Array.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: Array.pm,v 1.32 2003/08/23 04:35:43 fukachan Exp $
+# $FML: Array.pm,v 1.33 2003/11/26 11:00:32 fukachan Exp $
#
package IO::Adapter::Array;
@@ -133,7 +133,7 @@ sub getline { get_next_key(@_);}
# Return Value: ARRAY_REF
sub get_key_values_as_array_ref
{
- my ($self) = @_;
+ my ($self, $args) = @_;
my $x = $self->get_next_key();
return [ $x ];
}