disable use of get_value_as_array_ref()

2 files changed, 8 insertions, 5 deletions

diff --git a/fml/lib/IO/t/add.pl b/fml/lib/IO/t/add.pl
index b7868511..f0822abe 100755
--- a/fml/lib/IO/t/add.pl
+++ b/fml/lib/IO/t/add.pl
@@ -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: delete.pl,v 1.6 2002/08/19 15:19:46 fukachan Exp $
+# $FML: add.pl,v 1.1 2002/09/06 13:17:13 fukachan Exp $
 #
 
 use strict;
@@ -36,18 +36,18 @@ $obj->add( 'rudo' );
 $obj->add( $addr ) || warn("cannot add to $map");
 $obj->add( 'kenken' );
 if ( $obj->error() ) { print $obj->error();}
-show($obj, $addr);
+# show($obj, $addr);
 
 $obj->delete( $addr ); 
 $obj->add( $addr , crypt($addr, $$) ) || warn("cannot add to $map");
 if ( $obj->error() ) { print $obj->error();}
-show($obj, $addr);
+# show($obj, $addr);
 
 my $array = [ 's=skip', 'm=matome', 'r=relayserver', '# comment' ];
 $obj->delete( $addr ); 
 $obj->add( $addr , $array ) || warn("cannot add to $map");
 if ( $obj->error() ) { print $obj->error();}
-show($obj, $addr);
+# show($obj, $addr);
 
 exit 0;
 
diff --git a/fml/lib/IO/t/get_value_as_array_ref.pl b/fml/lib/IO/t/get_value_as_array_ref.pl
index f6ed80ac..8984f234 100755
--- a/fml/lib/IO/t/get_value_as_array_ref.pl
+++ b/fml/lib/IO/t/get_value_as_array_ref.pl
@@ -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$
+# $FML: get_value_as_array_ref.pl,v 1.1 2003/02/11 14:20:32 fukachan Exp $
 #
 
 use strict;
@@ -19,6 +19,9 @@ my $debug    = defined $ENV{ 'debug' } ? 1 : 0;
 ### MAIN ###
 print "${map}->get_value_as_array_ref() ... ";
 
+print "ignored\n";
+exit 0;
+
 # append
 use IO::Adapter;
 my $obj = new IO::Adapter $map;