'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!

llvm-svn: 69677
This commit is contained in:
Anton Korobeynikov 2009-04-21 16:04:14 +00:00
parent 58c9c564a9
commit 478dc7fb5e

View File

@ -66,7 +66,7 @@ foreach my $lib (@libs ) {
# this strips both LF and CRLF.
$libdefs{$_} = $lib;
}
close DEFS;
close DEFS or die "nm failed";
}
# Gather definitions from the object files.
@ -79,7 +79,7 @@ foreach my $obj (@objs ) {
# this strips both LF and CRLF.
$objdefs{$_} = $obj;
}
close DEFS;
close DEFS or die "nm failed";
}
# 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) {
# above failed
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) {