#40 Can't use string as an ARRAY - AMAVIS.pm

[Andreas Stern]

[root@asyl virus]# amavis < /var/virusmails/virus-20020901-223034-25273
Can't use string ("sysop@link-atu.comlink.apc.org") as an ARRAY ref while "strict refs" in use at /usr/lib/perl5/site_perl/5.6.1/AMAVIS.pm line 536.
[root@asyl virus]#

---
/etc/amavis/amavis.conf :
---

[global]

;; Which MTA to use. Specify one.

mail-transfer-agent = DebugMTA

[DebugMTA]

input file = /dev/stdin

output file = /dev/stdout
problem dir = /var/spool/amavis/problems

[Andreas Stern]

Logged In: YES
user_id=607667

diff -ru amavis-ng-0.1.4.1.orig/AMAVIS/MTA/DebugMTA.pm amavis-ng-0.1.4.1.modi_3/AMAVIS/MTA/DebugMTA.pm
--- amavis-ng-0.1.4.1.orig/AMAVIS/MTA/DebugMTA.pm Fri Jun 28 11:24:26 2002
+++ amavis-ng-0.1.4.1.modi_3/AMAVIS/MTA/DebugMTA.pm Sun Sep 8 22:06:02 2002
@@ -12,6 +12,7 @@
use AMAVIS;
use AMAVIS::Logging;
use IO::File;
+use File::Path;

use vars qw(
$cfg_input_file
@@ -86,7 +87,7 @@
writelog($args,LOG_DEBUG, "Sender: $1");
}
if (/^To: *(.*)$/) {
- @$args{'recipients'}=split /\s*,\s*/,$1;
+ push @{$$args{'recipients'}}, split /\s*,\s*/,$1;
writelog($args,LOG_DEBUG, "Recipients: $1");
}
print $output $_;