Thanks, this is helpful (it's about time I learn File::Find and
File::Spec anyway :-)
But I have a few comments.
On Feb 9, 2005, at 9:51 PM, Randy W. Sims wrote:
Your override of 'install_base_relative' seems to be unnecessary. I
get the same results without it.
Hmmm ... for me, if I remove the override, it installs the contents of
htdocs in ...
/my/install/base
... but, with the override it goes where I wanted in ...
/my/install/base/htdocs
Also, in your find_htdocs_files() function, you have the lines ...
# construct dest path relative to 'blib'
my( $v, $d, $f ) = File::Spec->splitpath( $File::Find::name );
my @d = File::Spec->splitdir( $d );
my $rel_path = File::Spec->catfile( 'htdocs', @d[1..$#d], $f );
# path of file in dist = path of destination file relative to
blib
$files{$File::Find::name} = $rel_path;
... which I believe gives me the same thing as the single line ...
$files{$File::Find::name} = $File::Find::name;
... since I'm only searching for files in htdocs anyway. Or am I
missing something?
Ray Zimmerman
Director, Laboratory for Experimental Economics and Decision Research
428-B Phillips Hall, Cornell University, Ithaca, NY 14853
phone: (607) 255-9645
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
|
