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