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

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

75 my $cwd = getcwd;
76 my $zip_name = $filename;
77
78 # We are about to change the directory.
79 # Therefore create an absolute pathname for the zip archive.
80
81 # First transfer the drive from $cwd to $zip_name. This is a
82 # 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

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

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

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

--- 739 unchanged lines hidden ---