Revision f4d85933
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| t/structure/no_lexicals_in_postif.t | ||
|---|---|---|
| 24 | 24 |
my @testitems = @Support::Files::testitems; |
| 25 | 25 |
|
| 26 | 26 |
foreach my $file (@testitems) {
|
| 27 |
next unless -f $file; |
|
| 27 | 28 |
my $clean = 1; |
| 28 |
my $doc = PPI::Document->new($file); |
|
| 29 |
my $doc = PPI::Document->new($file) or do {
|
|
| 30 |
ok 0, "PPI error for file $file: " . PPI::Document::errstr(); |
|
| 31 |
next; |
|
| 32 |
}; |
|
| 29 | 33 |
my $stmts = $doc->find('Statement::Variable');
|
| 30 | 34 |
|
| 31 | 35 |
for my $var (@{ $stmts || [] }) {
|
Auch abrufbar als: Unified diff
Test zu post if robuster gegen PPI Parsingfehler gemacht.