Test zu post if robuster gegen PPI Parsingfehler gemacht.
authorSven Schöling <s.schoeling@linet-services.de>
Wed, 26 Oct 2011 13:28:06 +0000 (15:28 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Wed, 26 Oct 2011 13:28:06 +0000 (15:28 +0200)
t/structure/no_lexicals_in_postif.t

index 8532ab1..bb15c9c 100644 (file)
@@ -24,8 +24,12 @@ my $fh;
 my @testitems = @Support::Files::testitems;
 
 foreach my $file (@testitems) {
+  next unless -f $file;
   my $clean = 1;
-  my $doc = PPI::Document->new($file);
+  my $doc = PPI::Document->new($file) or do {
+    ok 0, "PPI error for file $file: " . PPI::Document::errstr();
+    next;
+  };
   my $stmts = $doc->find('Statement::Variable');
 
   for my $var (@{ $stmts || [] }) {