Commit 268cbd96 authored by sof's avatar sof
Browse files

[project @ 1999-02-17 09:43:32 by sof]

Perl regex tweak, take 55
parent fc61d5e3
......@@ -133,9 +133,12 @@ sub constructNewHiFile {
$mod_name_dec =~ s/ZZ/Z/g;
if ($Specific_hi_file eq '') { # -ohi is used even if module name != stem of filename.
($hiname = $hifile_target) = $1 if $hifile_target =~ /\/?([^\/\.]+)\.$HiSuffix/;
($hiname = $hifile_target) = $1 if $hifile_target =~ /\/?([^\/]+)\.$HiSuffix$/;
if ( $mod_name_dec ne $hiname ) {
($hidir = $hifile_target) =~ s/(.*)$hiname\.$HiSuffix/$1/;
$hidir = '';
# strip off basename only if we've got a dirname.
($hidir = $hifile_target) =~ s/(.*\/)[^\/]*$/$1/
if ( $hifile_target =~ /\/$hiname\.$HiSuffix/ );
$hifile_target = $hidir . $mod_name_dec . ".$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