From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 17 Feb 2007 22:40:51 +0000 (+0000)
Subject: Make configure.com's manifest checker more robust when handling files with
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53071e5e686418d530fbf6a99fec42d48db641e8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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