From 5af819906ae8e00533c4cdfc16a5f410e5116eb9 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 11 Feb 2011 12:45:39 +0100
Subject: [PATCH] =?utf8?q?002goodperl.t:=20POD=20Sektionen=20nicht=20pr?=
 =?utf8?q?=C3=BCfen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 t/002goodperl.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/002goodperl.t b/t/002goodperl.t
index fa205b17c..28b69a4c5 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -119,7 +119,8 @@ foreach my $file (@testitems) {
         next;
     }
     while (my $file_line = <FILE>) {
-        if ($file_line =~ m/(<\/?$tags>)/) {
+        last if $file_line =~ /^__END__/;
+        if ($file_line =~ m/(<\/?$tags>)/o) {
             $found_html_count++;
             $found_html .= $1;
         }
-- 
2.20.1