zipdep.pl (8746300d) zipdep.pl (810a4bfd)
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

--- 96 unchanged lines hidden (view full) ---

105
106#
107# convert slashes to internal perl representation
108#
109sub perled_slashes {
110 my $path = shift;
111 $path =~ s/\\/\//g;
112 $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

--- 96 unchanged lines hidden (view full) ---

105
106#
107# convert slashes to internal perl representation
108#
109sub perled_slashes {
110 my $path = shift;
111 $path =~ s/\\/\//g;
112 $path =~ s/\/+/\//g;
113 if ( $^O eq 'os2' )
114 {
115 # remove also quotes surrounding name, thus writing buggy paths
116 $path =~ s/\"//g;
117 }
113 return $path;
114};
115
116#
117# Collect all files to zip in @patterns_array array
118#
119sub get_zip_content {
120 &get_zip_entries(\@given_patterns);

--- 218 unchanged lines hidden --- 		118 return $path;
119};
120
121#
122# Collect all files to zip in @patterns_array array
123#
124sub get_zip_content {
125 &get_zip_entries(\@given_patterns);

--- 218 unchanged lines hidden ---