'The "or die" is intended to catch the case where nm returned a

non-zero exit status, so nm will already have printed some error
messages.'

Patch by Jay Foad!

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@69677 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Anton Korobeynikov 2009-04-21 16:04:14 +00:00
parent 005e7984cc
commit 8d8fbf204d

View File

@ -66,7 +66,7 @@ foreach my $lib (@libs ) {
# this strips both LF and CRLF. # this strips both LF and CRLF.
$libdefs{$_} = $lib; $libdefs{$_} = $lib;
} }
close DEFS; close DEFS or die "nm failed";
} }
# Gather definitions from the object files. # Gather definitions from the object files.
@ -79,7 +79,7 @@ foreach my $obj (@objs ) {
# this strips both LF and CRLF. # this strips both LF and CRLF.
$objdefs{$_} = $obj; $objdefs{$_} = $obj;
} }
close DEFS; close DEFS or die "nm failed";
} }
# Generate one entry in the <dl> list. This generates the <dt> and <dd> elements # Generate one entry in the <dl> list. This generates the <dt> and <dd> elements
@ -113,7 +113,7 @@ sub gen_one_entry {
} }
} }
} }
close UNDEFS; close UNDEFS or die "nm failed";
unless(keys %DepLibs) { unless(keys %DepLibs) {
# above failed # above failed
open UNDEFS, "$nmPath -g -u $Directory/$lib |"; open UNDEFS, "$nmPath -g -u $Directory/$lib |";
@ -138,6 +138,7 @@ sub gen_one_entry {
} }
} }
} }
close UNDEFS or die "nm failed";
} }
for my $key (sort keys %DepLibs) { for my $key (sort keys %DepLibs) {