#### # # The module ExtUtils::STDmaker generated this file from the contents of # # Docs::Site_SVD::Net_Netid # # Don't edit this file, edit instead # # Docs::Site_SVD::Net_Netid # # ANY CHANGES MADE HERE WILL BE LOST # # the next time ExtUtils::STDmaker generates it. # # use ExtUtils::MakeMaker; my $tests = join ' ',unix2os('t/Net/Netid.t'); WriteMakefile( NAME => 'Net::Netid', DISTNAME => 'Net-Netid', VERSION => '0.02', dist => {COMPRESS => 'gzip', 'gz' => 'gz'}, test => {TESTS => $tests}, PREREQ_PM => {'Data::Str2Num' => '0', 'Proc::Command' => '0',}, ($] >= 5.005 ? (AUTHOR => 'SoftwareDiamonds.com Esupport@SoftwareDiamonds.comE', ABSTRACT => 'obtain basic IP host identfications from Domain Name Servers', ) : ()), ); 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; }