View | Details | Raw Unified | Return to bug 16101
Collapse All | Expand All

(-)a/QohA/File/Perl.pm (-1 / +4 lines)
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
- 

Return to bug 16101