--- /usr/src/MIME-Lite-HTML-1.21/HTML.pm	2004-04-15 18:59:33.000000000 -0400
+++ HTML.pm	2006-01-31 10:42:16.000000000 -0500
@@ -653,8 +653,12 @@
 #------------------------------------------------------------------------------
 sub set_err {
   my($self,$error) = @_;
+  my (@array);
   print $error,"\n" if ($self->{_DEBUG});
-  my @array = @{$self->{_ERRORS}} if ($self->{_ERRORS});
+
+  if ($self->{_ERRORS}) {
+    @array = @{$self->{_ERRORS}};
+  }
   push @array, $error;
   $self->{_ERRORS} = \@array;
   return 1;