From 4000444b681301ef283c2c0ea55f41edb0deeb42 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 26 Oct 2011 15:33:47 +0200
Subject: [PATCH] Testoutput bei PPI Parsingfehlern angepasst.

---
 t/structure/no_lexicals_in_postif.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/structure/no_lexicals_in_postif.t b/t/structure/no_lexicals_in_postif.t
index bb15c9cc9..c7d4c3035 100644
--- a/t/structure/no_lexicals_in_postif.t
+++ b/t/structure/no_lexicals_in_postif.t
@@ -24,10 +24,10 @@ my $fh;
 my @testitems = @Support::Files::testitems;
 
 foreach my $file (@testitems) {
-  next unless -f $file;
   my $clean = 1;
   my $doc = PPI::Document->new($file) or do {
-    ok 0, "PPI error for file $file: " . PPI::Document::errstr();
+    print $fh "?: PPI error for file $file: " . PPI::Document::errstr() . "\n";
+    ok 0, $file;
     next;
   };
   my $stmts = $doc->find('Statement::Variable');
-- 
2.20.1