zipdep.pl (7e90fac2) | zipdep.pl (8746300d) |
---|---|
1: 2eval 'exec perl -wS $0 ${1+"$@"}' 3 if 0; 4#************************************************************** 5# 6# Licensed to the Apache Software Foundation (ASF) under one 7# or more contributor license agreements. See the NOTICE file 8# distributed with this work for additional information --- 81 unchanged lines hidden (view full) --- 90 91# 92# convert slashes 93# 94sub convert_slashes { 95 my $path = shift; 96 $path =~ s/\//\$\//g; 97 $path =~ s/\\/\$\//g; | 1: 2eval 'exec perl -wS $0 ${1+"$@"}' 3 if 0; 4#************************************************************** 5# 6# Licensed to the Apache Software Foundation (ASF) under one 7# or more contributor license agreements. See the NOTICE file 8# distributed with this work for additional information --- 81 unchanged lines hidden (view full) --- 90 91# 92# convert slashes 93# 94sub convert_slashes { 95 my $path = shift; 96 $path =~ s/\//\$\//g; 97 $path =~ s/\\/\$\//g; |
98 if ( $^O eq 'os2' ) 99 { 100 # remove also quotes surrounding name, thus writing buggy paths 101 $path =~ s/\"//g; 102 } |
|
98 return $path; 99}; 100 101# 102# convert slashes to internal perl representation 103# 104sub perled_slashes { 105 my $path = shift; --- 228 unchanged lines hidden --- | 103 return $path; 104}; 105 106# 107# convert slashes to internal perl representation 108# 109sub perled_slashes { 110 my $path = shift; --- 228 unchanged lines hidden --- |