pathanalyzer.pm (dfa12748) pathanalyzer.pm (dba1a2e4)
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

--- 32 unchanged lines hidden (view full) ---

41 }
42 }
43 else
44 {
45 $$longfilenameref = ""; # there is no path
46 }
47}
48
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

--- 32 unchanged lines hidden (view full) ---

41 }
42 }
43 else
44 {
45 $$longfilenameref = ""; # there is no path
46 }
47}
48
49
50
51
52=head2
53
54 Despite its name, this function seems just to return the basename of the given filename.
55
56=cut
49sub make_absolute_filename_to_relative_filename
50{
51 my ($longfilenameref) = @_;
52
53 if ( $installer::globals::isunix )
54 {
55 if ( $$longfilenameref =~ /^.*\/(\S.+\S?)/ )
56 {

--- 15 unchanged lines hidden --- 		57sub make_absolute_filename_to_relative_filename
58{
59 my ($longfilenameref) = @_;
60
61 if ( $installer::globals::isunix )
62 {
63 if ( $$longfilenameref =~ /^.*\/(\S.+\S?)/ )
64 {

--- 15 unchanged lines hidden ---