[Module-build-general] copy_if_modified issue

[gwhite <gw...@he...>]

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