Lines 139-144
sub check_valid {
Link Here
|
139 |
|
139 |
|
140 |
|
140 |
|
141 |
my @errors = split '\n', $rs; |
141 |
my @errors = split '\n', $rs; |
|
|
142 |
|
143 |
# exclude /usr/share/perl errors |
144 |
@errors = grep {!/at \/usr\/share\/perl/} @errors; |
145 |
|
142 |
s/at .* line .*$// for @errors; |
146 |
s/at .* line .*$// for @errors; |
143 |
s/.*syntax OK$// for @errors; |
147 |
s/.*syntax OK$// for @errors; |
144 |
|
148 |
|
145 |
- |
|
|