Tools.pm (c9b362f6) Tools.pm (9f91b7e3)
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

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

25
26 package installer::patch::Tools - Collection of functions that don't fit anywhere else
27
28=cut
29
30
31
32
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

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

25
26 package installer::patch::Tools - Collection of functions that don't fit anywhere else
27
28=cut
29
30
31
32
33=head2 CygpathToWindows ($path)
33=head2 ToEscapedWindowsPath ($path)
34
35 Convert the given path with the 'cygpath' command into Windows format. Quote backslashes.
36
37=cut
34
35 Convert the given path with the 'cygpath' command into Windows format. Quote backslashes.
36
37=cut
38sub CygpathToWindows($)
38sub ToEscapedWindowsPath($)
39{
40 my ($path) = @_;
39{
40 my ($path) = @_;
41
41 my $windows_path = qx(cygpath -w "$path");
42 $windows_path =~ s/(^\s+|\s+$)//g;
43 $windows_path =~ s/\\/\\\\/g;
42 my $windows_path = qx(cygpath -w "$path");
43 $windows_path =~ s/(^\s+|\s+$)//g;
44 $windows_path =~ s/\\/\\\\/g;
45
44 return $windows_path;
45}
46
46 return $windows_path;
47}
48
49
50
51
52sub ToWindowsPath ($)
53{
54 my ($path) = @_;
55
56 my $windows_path = qx(cygpath -w "$path");
57 $windows_path =~ s/(^\s+|\s+$)//g;
58
59 return $windows_path;
60}
61
471;
621;