mkpolygons.pl (bb113e63) mkpolygons.pl (fb0b81f5)
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

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

79 my $cwd = getcwd;
80 my $zip_name = $filename;
81
82 # We are about to change the directory.
83 # Therefore create an absolute pathname for the zip archive.
84
85 # First transfer the drive from $cwd to $zip_name. This is a
86 # workaround for a bug in file_name_is_absolute which thinks
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

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

79 my $cwd = getcwd;
80 my $zip_name = $filename;
81
82 # We are about to change the directory.
83 # Therefore create an absolute pathname for the zip archive.
84
85 # First transfer the drive from $cwd to $zip_name. This is a
86 # workaround for a bug in file_name_is_absolute which thinks
87 # the the path \bla is an absolute path under DOS.
87 # the path \bla is an absolute path under DOS.
88 my ($volume,$directories,$file) = File::Spec->splitpath ($zip_name);
89 my ($volume_cwd,$directories_cwd,$file_cwd) = File::Spec->splitpath ($cwd);
90 $volume = $volume_cwd if ($volume eq "");
91 $zip_name = File::Spec->catpath ($volume,$directories,$file);
92
93 # Add the current working directory to a relative path.
94 if ( ! file_name_is_absolute ($zip_name))
95 {

--- 266 unchanged lines hidden --- 		88 my ($volume,$directories,$file) = File::Spec->splitpath ($zip_name);
89 my ($volume_cwd,$directories_cwd,$file_cwd) = File::Spec->splitpath ($cwd);
90 $volume = $volume_cwd if ($volume eq "");
91 $zip_name = File::Spec->catpath ($volume,$directories,$file);
92
93 # Add the current working directory to a relative path.
94 if ( ! file_name_is_absolute ($zip_name))
95 {

--- 266 unchanged lines hidden ---