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; |