From: CJ van den Berg <cj@vdobnline.com>
Date: Wed, 20 Apr 2011 21:25:22 +0000 (+0100)
Subject: For very short linker scripts dlopen may return 'file too short' instead
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=44315e136cf9bc994185e689babec649c127e045

For very short linker scripts dlopen may return 'file too short' instead
of 'invalid ELF header'.
---

diff --git a/rts/Linker.c b/rts/Linker.c
index f39112f..c1310b0 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1186,7 +1186,7 @@ initLinker( void )
 #   endif /* RTLD_DEFAULT */
 
     compileResult = regcomp(&re_invalid,
-           "(([^ \t()])+\\.so([^ \t:()])*):([ \t])*invalid ELF header",
+           "(([^ \t()])+\\.so([^ \t:()])*):([ \t])*(invalid ELF header|file too short)",
            REG_EXTENDED);
     ASSERT( compileResult == 0 );
     compileResult = regcomp(&re_realso,