Tools.pm (9f91b7e3) | Tools.pm (677600b0) |
---|---|
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 --- 45 unchanged lines hidden (view full) --- 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 | 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 --- 45 unchanged lines hidden (view full) --- 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 |
62 63# TODO: Is there a touch in a standard library? 64sub touch ($) 65{ 66 my ($filename) = @_; 67 68 open my $out, ">", $filename; 69 close $out; 70} 71 72 73 74 75 |
|
621; | 761; |