####
#
# The module ExtUtils::STDmaker generated this file from the contents of
#
# Docs::Site_SVD::File_PM2File
#
# Don't edit this file, edit instead
#
# Docs::Site_SVD::File_PM2File
#
# ANY CHANGES MADE HERE WILL BE LOST
#
# the next time ExtUtils::STDmaker generates it.
#
#
use ExtUtils::MakeMaker;
my $tests = join ' ',unix2os('t/File/PM2File.t');
WriteMakefile(
NAME => 'File::PM2File',
DISTNAME => 'File-PM2File',
VERSION => '0.08',
dist => {COMPRESS => 'gzip',
'gz' => 'gz'},
test => {TESTS => $tests},
PREREQ_PM => { 'File::Where' => '0.02'},
($] >= 5.005 ?
(AUTHOR => 'SoftwareDiamonds.com E<lt>support@SoftwareDiamonds.comE<gt>',
ABSTRACT => 'Convert a Program Module specification
to the file specification for the current site operating system', ) : ()),
);
use File::Spec;
use File::Spec::Unix;
sub unix2os
{
my @file = ();
foreach my $file (@_) {
my (undef, $dir, $file_unix) = File::Spec::Unix->splitpath( $file );
my @dir = File::Spec::Unix->splitdir( $dir );
push @file, File::Spec->catfile( @dir, $file_unix);
}
@file;
}