$NetBSD: patch-bh,v 1.2 2010/10/04 22:12:06 pettai Exp $

  fixes spamassassin bug #6392 (running spamassassin 3.3.1 on perl 5.12.x)
  https://issues.apache.org/SpamAssassin/show_bug.cgi?id=6392

--- ./lib/Mail/SpamAssassin/HTML.pm.orig	2010-10-01 20:58:44.000000000 +0000
+++ ./lib/Mail/SpamAssassin/HTML.pm
@@ -191,7 +191,7 @@ sub get_rendered_text {
   my $self = shift;
   my %options = @_;
 
-  return join('', @{ $self->{text} }) unless keys %options;
+  return join('', @{ $self->{text} }) unless %options;
 
   my $mask;
   while (my ($k, $v) = each %options) {
