From 8d8fbf204db2e051a9b37b2f9d5431cab748bfde Mon Sep 17 00:00:00 2001
From: Anton Korobeynikov <asl@math.spbu.ru>
Date: Tue, 21 Apr 2009 16:04:14 +0000
Subject: '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
---
 utils/GenLibDeps.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'utils')

diff --git a/utils/GenLibDeps.pl b/utils/GenLibDeps.pl
index e501774251..73f3e71491 100755
--- a/utils/GenLibDeps.pl
+++ b/utils/GenLibDeps.pl
@@ -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) {
-- 
cgit v1.2.3