pathanalyzer.pm (9780544f) | pathanalyzer.pm (dfa12748) |
---|---|
1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 44 unchanged lines hidden (view full) --- 53 if ( $installer::globals::isunix ) 54 { 55 if ( $$longfilenameref =~ /^.*\/(\S.+\S?)/ ) 56 { 57 $$longfilenameref = $1; 58 } 59 } 60 | 1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 44 unchanged lines hidden (view full) --- 53 if ( $installer::globals::isunix ) 54 { 55 if ( $$longfilenameref =~ /^.*\/(\S.+\S?)/ ) 56 { 57 $$longfilenameref = $1; 58 } 59 } 60 |
61 if ( $installer::globals::iswin ) | 61 if ( $installer::globals::iswin || $installer::globals::isos2 ) |
62 { 63 # Either '/' or '\'. It would be possible to use $installer::globals::separator. 64 if ( $$longfilenameref =~ /^.*[\/\\](\S.+\S?)/ ) 65 { 66 $$longfilenameref = $1; 67 } 68 } 69} 70 711; | 62 { 63 # Either '/' or '\'. It would be possible to use $installer::globals::separator. 64 if ( $$longfilenameref =~ /^.*[\/\\](\S.+\S?)/ ) 65 { 66 $$longfilenameref = $1; 67 } 68 } 69} 70 711; |