diff options
| author | fukachan <fukachan> | 2002-04-10 04:30:00 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-10 04:30:00 +0000 |
| commit | e808d50da996d1f7fca80e879a677188ed3b58c9 (patch) | |
| tree | 6d8561d907d228b3102dca876895ed62ed1c78f6 | |
| parent | c4fe609b4187fa07b65620091d5301ad8fe6eb13 (diff) | |
| download | fml8-e808d50da996d1f7fca80e879a677188ed3b58c9.tar.gz fml8-e808d50da996d1f7fca80e879a677188ed3b58c9.tar.bz2 fml8-e808d50da996d1f7fca80e879a677188ed3b58c9.zip | |
$message uses a wrong key ;) should use { incoming_message }->{ message }
| -rw-r--r-- | fml/lib/FML/Filter.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Filter.pm b/fml/lib/FML/Filter.pm index 78f4079f..3d546af3 100644 --- a/fml/lib/FML/Filter.pm +++ b/fml/lib/FML/Filter.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: Filter.pm,v 1.6 2002/04/07 15:01:08 tmu Exp $ +# $FML: Filter.pm,v 1.7 2002/04/08 10:17:32 tmu Exp $ # package FML::Filter; @@ -66,7 +66,7 @@ sub new sub check { my ($self, $curproc, $args) = @_; - my $message = $curproc->{ 'incoming_message' }; + my $message = $curproc->{ 'incoming_message' }->{ message }; my $config = $curproc->{ 'config' }; if (defined $message) { |