diff options
Diffstat (limited to 'find-broken-perl-packages.sh')
| -rwxr-xr-x | find-broken-perl-packages.sh | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/find-broken-perl-packages.sh b/find-broken-perl-packages.sh index 4306275..09c53fa 100755 --- a/find-broken-perl-packages.sh +++ b/find-broken-perl-packages.sh @@ -11,7 +11,11 @@ find "$perllibpath" -name "*.so" | -e 's|.so$||' \ -e 's|\(.*\)::.*$|\1|') output=$(perl -M$module -e1 2>&1) - if grep -q "perl: symbol lookup error:" <<< $output; then + ret=$? + if (($ret != 0)); then + echo $file >> $tmpdir/raw.txt + echo "$module" >> "$tmpdir/perl-modules.txt" + elif grep -q "perl: symbol lookup error:" <<< $output; then sed -n 's|perl: symbol lookup error: \(.*\): undefined symbol: .*|\1|p' <<< $output >> $tmpdir/raw.txt echo "$module" >> "$tmpdir/perl-modules.txt" elif grep -q "Perl API version .* of .* does not match .*" <<< $output; then |