#### # # The module ExtUtils::STDmaker generated this file from the contents of # # Docs::Site_SVD::File_AnySpec # # Don't edit this file, edit instead # # Docs::Site_SVD::File_AnySpec # # ANY CHANGES MADE HERE WILL BE LOST # # the next time ExtUtils::STDmaker generates it. # # use ExtUtils::MakeMaker; my $tests = join ' ',unix2os('t/File/AnySpec.t'); WriteMakefile( NAME => 'File::AnySpec', DISTNAME => 'File-AnySpec', VERSION => '0.06', dist => {COMPRESS => 'gzip', 'gz' => 'gz'}, test => {TESTS => $tests}, PREREQ_PM => {'File::Package' => '1.12', 'File::Where' => '0.03',}, ($] >= 5.005 ? (AUTHOR => 'SoftwareDiamonds.com Esupport@SoftwareDiamonds.comE', ABSTRACT => 'Manipulate file specifications not only for the current operating system but for foreign operating systems', ) : ()), ); 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; }