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;