Commit af5d6df3 authored by sof's avatar sof
Browse files

[project @ 1999-01-19 08:33:14 by sof]

constructNewHiFile: regular expressions which substituted new
module filename for old in hifile_target, didn't quite work.
parent a6eede31
......@@ -124,9 +124,9 @@ sub constructNewHiFile {
&readHiFile('new',$hsc_hi) unless $HiHasBeenRead{'new'} == 1;
if ($Specific_hi_file eq '') { # -ohi is used even if module name != stem of filename.
($hiname = $hifile_target) =~ s/([^\/]*\/)*(.*)\.$HiSuffix/$2/;
($hiname = $hifile_target) = $1 if $hifile_target =~ /\/?([^\/\.]+)\.$HiSuffix/;
if ($ModuleName{'new'} ne $hiname) {
($hidir = $hifile_target) =~ s/([^\/]*\/)*.*\.$HiSuffix/$1/;
($hidir = $hifile_target) =~ s/(.*)$hiname\.$HiSuffix/$1/;
$hifile_target = $hidir . $ModuleName{'new'} . ".$HiSuffix";
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment