--- SweepViruses.pm.old	2003-10-18 13:43:26.000000000 +0100
+++ SweepViruses.pm	2003-11-03 18:18:22.000000000 +0000
@@ -1889,6 +1889,19 @@
     $types->{"$id"}{"$part"} .= "v";
     return 1;
   }
+  if (/^(.*?): File size limit exceeded\.$/) {
+    my ($file, $ReportStart);
+    $file = $1;
+
+    $file =~ s/^(.\/)?$BaseDir\/?//;
+    $file =~ s/^\.\///;
+    my ($id,$part) = split /\//, $file, 2;
+    $ReportStart = $part;
+    $ReportStart = $Name . ': ' . $ReportStart if $Name;
+    $infections->{"$id"}{"$part"} .= "$ReportStart contains dangerous broken zip file\n";
+    $types->{"$id"}{"$part"} .= "v";
+    return 1;
+  }
 
   chomp $line;
   return 0 if $line =~ /^$/; # Catch blank lines