From 70f00305393ec502d16f4d16125102bb2084964e Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Sat, 17 Nov 2007 08:16:46 +0000
Subject: [PATCH] fix typo

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@816 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/virus/clamdscan | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/virus/clamdscan b/plugins/virus/clamdscan
index 354bd24..1ea28ff 100644
--- a/plugins/virus/clamdscan
+++ b/plugins/virus/clamdscan
@@ -120,7 +120,7 @@ sub hook_data_post {
     # Ignore non-multipart emails
     my $content_type = $transaction->header->get('Content-Type');
     $content_type =~ s/\s/ /g if defined $content_type;
-    unless ( $self->{"_clamd"}-{"scan_all"}
+    unless ( $self->{"_clamd"}->{"scan_all"}
         || $content_type
         && $content_type =~ m!\bmultipart/.*\bboundary="?([^"]+)!i )
     {