summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-05-20 12:12:04 +0000
committerfukachan <fukachan>2001-05-20 12:12:04 +0000
commit5fa630eb734f88d251387e7c26889fa1d062a8f8 (patch)
treecc8e280702a16e761e10f9fb5cbe4e2d97930b11
parentce9c7d5dac60e9a60959490547d109e4024a0746 (diff)
downloadfml8-5fa630eb734f88d251387e7c26889fa1d062a8f8.tar.gz
fml8-5fa630eb734f88d251387e7c26889fa1d062a8f8.tar.bz2
fml8-5fa630eb734f88d251387e7c26889fa1d062a8f8.zip
fix method name: s/message_data_type/get_data_type/
-rw-r--r--fml/lib/Mail/Bounce/Postfix19991231.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/Mail/Bounce/Postfix19991231.pm b/fml/lib/Mail/Bounce/Postfix19991231.pm
index be060a28..fa789b75 100644
--- a/fml/lib/Mail/Bounce/Postfix19991231.pm
+++ b/fml/lib/Mail/Bounce/Postfix19991231.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: Postfix19991231.pm,v 1.4 2001/04/12 14:07:40 fukachan Exp $
+# $FML: Postfix19991231.pm,v 1.5 2001/05/05 06:23:05 fukachan Exp $
#
@@ -45,7 +45,7 @@ Mail::Bounce::Postfix19991231 - Postfix-19991231 error message format parser
sub analyze
{
my ($self, $msg, $result) = @_;
- my $data_type = $msg->message_data_type;
+ my $data_type = $msg->get_data_type();
if ($data_type =~ /multipart/i) {
$self->_analyze_broken_dsn($msg, $result);