Do the Right Thing(TM) with source files that have extensions

other than .sgml.
This commit is contained in:
John Fieber 1997-01-18 01:48:04 +00:00
parent 00bbbd73e9
commit 3697c8d8a6

View File

@ -88,7 +88,7 @@ sub getfile {
}
$fileroot = $file;
$fileroot =~ s/.*\///; # drop the path
$fileroot =~ s/\.sgml$//; # drop the .sgml
$fileroot =~ s/\.[^\.]*$//; # drop the extension
$filepath = $file;
$filepath =~ s/\/*[^\/]*$//;
if ($filepath ne "") {