#!/usr/bin/perl
use warnings;
use strict;
use File::Copy;
my @dirs = ('blib/', 'lib/', 'Locale/', 'Object');
my $where = '';
foreach my $dir (@dirs)
{
$where = $where . $dir;
mkdir $where;
die "Couldn't make $where directory: $!" unless $! =~ /File exists/;
}
copy('lib/Locale/Object/locale.db', 'blib/lib/Locale/Object/locale.db')
or die "Couldn't copy locale database: $!";
=head1 NAME
copy-for-test.PL - ensure ./Build test works
=head1 DESCRIPTION
The L<Locale::Object> modules use a L<DBD::SQLite> database of information
that they consult, which is created at build time. That file needs to be in the
same directory as L<Locale::Object::DB>.
Because L<Module::Build> won't copy non-Perl files into the C<blib> directory
when you run the tests, this script copies the DB into
C<blib/lib/Locale/Object/> (creating those directories, if need be) when you do
C<./Build>. That way, L<Locale::Object::DB> will be able to find it when you do
a C<./Build test>.
There should be no need to run this script yourself.
=cut