This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make configure.com's manifest checker more robust when handling files with
authorCraig A. Berry <craigberry@mac.com>
Sat, 17 Feb 2007 22:40:51 +0000 (22:40 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sat, 17 Feb 2007 22:40:51 +0000 (22:40 +0000)
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

configure.com

index 4213164..8cfee8b 100644 (file)
@@ -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