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