1#!/pro/bin/perl 2 3use strict; 4use warnings; 5 6BEGIN { 7 use Test::More; 8 my $tests = 105; 9 unless ($ENV{PERL_CORE}) { 10 require Test::NoWarnings; 11 Test::NoWarnings->import (); 12 $tests++; 13 } 14 15 plan tests => $tests; 16 } 17 18use Config::Perl::V; 19 20ok (my $conf = Config::Perl::V::plv2hash (<DATA>), "Read perl -v block"); 21ok (exists $conf->{$_}, "Has $_ entry") for qw( build environment config inc ); 22 23is ($conf->{build}{osname}, $conf->{config}{osname}, "osname"); 24is ($conf->{build}{stamp}, 0, "No build time known"); 25is ($conf->{config}{version}, "5.10.0", "reconstructed \%Config{version}"); 26 27my $opt = Config::Perl::V::plv2hash ("")->{build}{options}; 28foreach my $o (sort keys %$opt) { 29 is ($conf->{build}{options}{$o}, 0, "Runtime option $o unset"); 30 } 31 32eval { require Digest::MD5; }; 33my $md5 = $@ ? "0" x 32 : "ce0a7871dfddbbed0a6c685c0f52dbf9"; 34ok (my $sig = Config::Perl::V::signature ($conf), "Get signature"); 35 36SKIP: { 37 ord "A" == 65 or skip "ASCII-centric test", 1; 38 is ($sig, $md5, "MD5"); 39 } 40 41__END__ 42Summary of my perl5 (revision 5 version 10 subversion 0) configuration: 43 Platform: 44 osname=linux, osvers=2.6.22.13-0.3-default, archname=i686-linux-64int 45 uname='linux nb09 2.6.22.13-0.3-default #1 smp 20071119 15:02:58 utc i686 i686 i386 gnulinux ' 46 config_args='-Duse64bitint -des' 47 hint=recommended, useposix=true, d_sigaction=define 48 useithreads=undef, usemultiplicity=undef 49 useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef 50 use64bitint=define, use64bitall=undef, uselongdouble=undef 51 usemymalloc=n, bincompat5005=undef 52 Compiler: 53 cc='cc', ccflags ='-fno-strict-aliasing -pipe -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', 54 optimize='-O2 -g', 55 cppflags='-fno-strict-aliasing -pipe -I/pro/local/include' 56 ccversion='', gccversion='4.2.1 (SUSE Linux)', gccosandvers='' 57 intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 58 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 59 ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 60 alignbytes=4, prototype=define 61 Linker and Libraries: 62 ld='cc', ldflags ='-L/pro/local/lib' 63 libpth=/pro/local/lib /lib /usr/lib /usr/local/lib 64 libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc 65 perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc 66 libc=/lib/libc-2.6.1.so, so=so, useshrplib=false, libperl=libperl.a 67 gnulibc_version='2.6.1' 68 Dynamic Linking: 69 dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' 70 cccdlflags='-fPIC', lddlflags='-shared -O2 -L/pro/local/lib' 71