Make configure.com's manifest checker more robust when handling files with

multiple dots that also have an underscore in the name (e.g., foo_bar.tar.gz).
Various archive utilities will create that as foo_bar_tar.gz or foo_bar.tar_gz,
at least on ODS-2 volumes.

p4raw-id: //depot/perl@30342

diff --git a/configure.com b/configure.com
index 4213164..8cfee8b 100644 (file)
--- a/configure.com
+++ b/configure.com
@@ -544,8 +544,9 @@ $       THEN
 $! 17-DEC-1999 Improved to turn "[.foo.bar]baz.c_buz" into
 $! "[.foo.bar]baz_c.buz" to cover unzipped archives and put
 $! "[.foo.bar]baz.c_buz,baz_c.buz" into missing list if neither is found.
-$         basename[f$locate(".",basename),1] := _
-$         dot_ele = F$ELEMENT(dots - 1,"_",basename)
+$         dotloc = f$locate(".",basename)
+$         basename[dotloc,1] := "_"
+$         dot_ele = F$ELEMENT(dots - 1,"_",f$extract(dotloc,f$length(basename),basename))
 $         basename = -
             f$extract(0,f$length(basename)-(f$length(dot_ele)+1),basename) -
               + "." + dot_ele