--- HTMLCleaner.pm	2003-07-07 17:40:05.000000000 -0700
+++ /usr/lib/perl5/site_perl/5.8.0/Anomy/HTMLCleaner.pm	2003-09-23 12:54:06.000000000 -0700
@@ -576,6 +576,11 @@
 sub cleanTag_2
 {
     my ($self, $tag, $val, $s, $a, $e, $v) = @_;
+    # Set empty defaults
+    $s="" unless (defined($s));
+    $a="" unless (defined($a));
+    $e="" unless (defined($e));
+    $v="" unless (defined($v));
 
     # Decode URL-encoded stuff which needn't be URL-encoded.
     $v =~  s/%((2[ef]|3[0-9a]|4[0-9a-f]|5[0-9a]|6[1-9a-f]|7[0-9a]))/