From 7fba334e4fe21133141125ac77185ab9a0b22f2c Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Tue, 3 Jun 2014 12:27:06 +0200 Subject: find-broken-perl-packages.sh: fix handling of perl crashes Crash means the module is probably built against an old perl. Signed-off-by: Florian Pritz --- find-broken-perl-packages.sh | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'find-broken-perl-packages.sh') 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 -- cgit v1.2.3-24-g4f1b