[project @ 2000-04-14 09:54:12 by simonmar]

fix for interface header regexp; orphan modules weren't being recorded
as such.

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index 90424c5..f452fa1 100644 (file)
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -211,7 +211,7 @@ sub readHiFile {
     hi_line: while (<HIFILE>) {
        next if /^ *$/; # blank line
 
-       if ( /^__interface ("[A-Za-z]*"\s*)([A-Z]\S*) (\d+) (\!)?/ ) {
+       if ( /^__interface ("[A-Za-z]*"\s*)([A-Z]\S*)\s+(\d+)?\s*(\!)?/ ) {
            if ( $mod ne 'new' ) {
                # Reading old .hi file
                $ModuleVersion{$mod} = $3;