Hi all!
In the XML-Grammar-ProductsSyndication Build.PL file, I have the following
code:
{{{{{{{{{{{{{{{{{{{{{{{
use strict;
use warnings;
use File::Spec;
use lib File::Spec->catdir(File::Spec->curdir(), "inc");
use Test::Run::Builder;
use File::Find;
sub data_inc
{
return "/usr/share/perl5/data/modules/XML-Grammar-Products-
Syndication/data";
}
my @extradata_files;
sub filter_files
{
my $filename = $File::Find::name;
if ((-f $filename) && ($filename =~ /\.(?:mod|xslt|dtd|ent|cat|jpg|
xcf\.bz2)$/))
{
push @extradata_files, $filename;
}
}
find({ wanted => \&filter_files, no_chdir => 1}, "extradata");
my $builder = Test::Run::Builder->new(
module_name => 'XML::Grammar::ProductsSyndication',
license => 'bsd',
dist_author => 'Shlomi Fish <[email protected]>',
dist_version_from => 'lib/XML/Grammar/ProductsSyndication.pm',
build_requires => {
'Test::More' => 0,
'Test::XML' => 0,
'XML::LibXML' => 0,
'XML::LibXSLT' => 0,
'Class::Accessor' => 0,
'XML::Amazon' => 0,
'LWP::UserAgent' => 0,
'Imager' => 0,
},
add_to_cleanup => [ 'XML::Grammar::ProductsSyndication-*' ],
create_makefile_pl => 'passthrough',
install_path =>
{
extradata => data_inc(),
},
extradata_files =>
{
map { $_ => $_ } @extradata_files,
},
);
$builder->add_build_element('extradata');
$builder->install_path->{'extradata'} = $builder->prefix() .
"/data/modules/XML-Grammar-Products-Syndication/data";
$builder->config_data('extradata_install_path' => [$builder->install_path-
>{'extradata'}]);
$builder->create_build_script();
}}}}}}}}}}}}}}}}}}}}}
(sorry for the wordwrap).
Now, the problem is that when --prefix is not specified $builder->prefix()
defaults to undef, which makes Module::Build attempts to install the extradata
at "/data/modules...." (starting from the /-directory).
I'd like the install_path->{'extradata'} to default to somewhere under where
the Perl interpreter was installed. How can I achieve this?
Regards,
-- Shlomi Fish
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
Best Introductory Programming Language - http://xrl.us/bjn84
<mauke> I'm not interested in what you're doing; what are you trying to
achieve?
<PerlJam> mauke: I'm trying to achieve world peace and this regex is
the last thing standing in my way! ;)
