[Module-build-general] copy_if_modified issue
Status: Beta
Brought to you by:
kwilliams
|
From: gwhite <gw...@he...> - 2003-09-04 18:58:07
|
I am doing some work with it and I don't think
copy_if_modified(%parameters) works the way it was intended. These
comments are based on the .20 version on CPAN
Line 1925-27 in base.pm is:
my $to_path = $args{to} || File::Spec->catfile( $args{to_dir},
$args{flatten}
?
File::Basename::basename($file)
: $file );
Should be:
my $to_path = $args{to_dir} || File::Spec->catfile( $args{to_dir},
$args{flatten}
?
File::Basename::basename($file)
: $file );
the missing _dir appears to be a typo.
And since to_dir is supposed to be a directory 1930-31 should change
from:
# Create parent directories
File::Path::mkpath(File::Basename::dirname($to_path), 0, 0777);
To:
# Create parent directories
File::Path::mkpath($to_path, 0, 0777);
otherwise the last portion of the directory is getting chopped off
(/my/foo/bar is shortened to /my/foo)
Every step of the process the prompts come up, is that how it is
supposed to work? How do I get them to only come up once (preferrably
at Build.PL)??
All this was observed on a Win32 system, I will be testing FreeBSD next
week.
I am using the module to install a complete perl only application on web
servers (cross platform), the feature I would like to see is the ability
to have other subdirectories (off of basedir) copied where I need them
on the web server (html, config files, templates, fonts for PDF). It
seems that if I could add my own install types, then set the install
path that would do it, but maybe I am missing something.
I am self taught Perl coder, so I may be off track and I don't quite get
some of the terminology (this statement "This method may be called as a
class or object method." and the subclassing stuff for example). Let me
know if I need to clarify anything.
Greg White
HealthStatus.com, Inc.
317.823.2687
fax 317.823.2697
Greg White
HealthStatus.com, Inc.
317.823.2687
fax 317.823.2697
|