diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-02-17 22:40:51 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-02-17 22:40:51 +0000 |
| commit | 53071e5e686418d530fbf6a99fec42d48db641e8 (patch) | |
| tree | 23ec8d858e0dad92df40e794ec3fc099b06e0cea /configure.com | |
| parent | 33972ad64a99b9ebe310f5ddfe85338f71fea66d (diff) | |
| download | perl-53071e5e686418d530fbf6a99fec42d48db641e8.tar.gz | |
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
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/configure.com b/configure.com index 4213164b7f..8cfee8b9de 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 |