--- ../sloccount-2.22/perl_count        2002-01-02 12:21:08.000000000 -0500
+++ perl_count  2003-05-15 13:33:45.000000000 -0400
@@ -58,7 +58,8 @@
   open (FILE, $file);
   while (<FILE>) {
     s/#.*//;  # Delete leading comments.
-    if (m/^\s*$heredocument/) {$heredocument = ""; # finished here doc.
+    if ($heredocument and m/^\s*$heredocument/) {
+      $heredocument = ""; # finished here doc.
     } elsif (m/<<\s*["']?([A-Za-z0-9_-]+)["']?[;,]\s*$/) {
       # Beginning of a here document.
       $heredocument = $1;