- Timestamp:
- 2013-03-05T10:18:56+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/util.pm
r26961 r26984 630 630 my ($src, $dest, $verbosity) = @_; 631 631 632 print "&util::hard_link( $src, $dest, $verbosity)\n";633 634 632 # remove trailing slashes from source and destination files 635 633 $src =~ s/[\\\/]+$//; … … 2038 2036 { 2039 2037 my ($filename_full_path, $mode) = @_; 2040 ##rint STDERR "-> util::file_openfdcommand('" . $filename_full_path . "', '" . $mode . "')\n";2041 2038 # I'll set to read by default, as that is less destructive to precious files 2042 2039 # on your system...
Note:
See TracChangeset
for help on using the changeset viewer.