Skip to content
Snippets Groups Projects
Commit cb9a82f5 authored by Simon Marlow's avatar Simon Marlow
Browse files

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

fix for interface header regexp; orphan modules weren't being recorded
as such.
parent ae860efa
No related merge requests found
......@@ -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;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment