diff options
| author | fukachan <fukachan> | 2004-12-08 07:26:15 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-12-08 07:26:15 +0000 |
| commit | 11b4fad8c98fe377d4b4fa9526f00bd5f302529b (patch) | |
| tree | 59ce79a679ef460cbf35d6bc4e4a8856b6dd61f9 /regress/message | |
| parent | f888e8b62e33582190287e78f2aa184f88ee1a7f (diff) | |
| download | fml8-11b4fad8c98fe377d4b4fa9526f00bd5f302529b.tar.gz fml8-11b4fad8c98fe377d4b4fa9526f00bd5f302529b.tar.bz2 fml8-11b4fad8c98fe377d4b4fa9526f00bd5f302529b.zip | |
fixed (to catch up current Mail::Message)
Diffstat (limited to 'regress/message')
| -rwxr-xr-x | regress/message/basic_io.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/regress/message/basic_io.pl b/regress/message/basic_io.pl index 126c02ed..1acb19d4 100755 --- a/regress/message/basic_io.pl +++ b/regress/message/basic_io.pl @@ -1,11 +1,11 @@ #!/usr/bin/env perl #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2004 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: basic_io.pl,v 1.4 2001/04/13 04:34:07 fukachan Exp $ +# $FML: basic_io.pl,v 1.5 2002/04/18 14:18:09 fukachan Exp $ # use strict; @@ -28,7 +28,7 @@ for my $f (@ARGV) { unless ($test_mode) { print "\n<< $f\n"; - my $h = $obj->get_data_type_list; + my $h = $obj->data_type_list; for (@$h) { print " ", $_, "\n";} print "\n"; } |