From: CJ van den Berg <[email protected]>
For very short linker scripts dlopen may return 'file too short' instead
of 'invalid ELF header'.
---
rts/Linker.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
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,
--
1.7.4.4
_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc
