1#!/pro/bin/perl 2 3use strict; 4use warnings; 5 6BEGIN { 7 use Test::More; 8 my $tests = 93; 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}, "Dec 20 2010 12:46:00", "Build time"); 25is ($conf->{config}{version}, "5.12.2", "reconstructed \%Config{version}"); 26is ($conf->{config}{gccversion}, "", "not built with gcc"); 27is ($conf->{config}{ccversion}, "B3910B", "built with HP C-ANSI-C"); 28 29my $opt = Config::Perl::V::plv2hash ("")->{build}{options}; 30foreach my $o (sort qw( 31 PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP USE_64_BIT_ALL 32 USE_64_BIT_INT USE_LARGE_FILES USE_LONG_DOUBLE 33 USE_PERLIO USE_PERL_ATOF 34 )) { 35 is ($conf->{build}{options}{$o}, 1, "Runtime option $o set"); 36 delete $opt->{$o}; 37 } 38foreach my $o (sort keys %$opt) { 39 is ($conf->{build}{options}{$o}, 0, "Runtime option $o unset"); 40 } 41 42__END__ 43Summary of my perl5 (revision 5 version 12 subversion 2) configuration: 44 45 Platform: 46 osname=hpux, osvers=11.31, archname=IA64.ARCHREV_0-LP64-ld 47 uname='hp-ux x2 b.11.31 u ia64 2977233888 unlimited-user license ' 48 config_args='-Duse64bitall -Duselongdouble -des' 49 hint=recommended, useposix=true, d_sigaction=define 50 useithreads=undef, usemultiplicity=undef 51 useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef 52 use64bitint=define, use64bitall=define, uselongdouble=define 53 usemymalloc=n, bincompat5005=undef 54 Compiler: 55 cc='cc', ccflags =' -Ae -DPERL_DONT_CREATE_GVSV +Z -z -D_HPUX_SOURCE -Wl,+vnocompatwarnings +DD64 -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 ', 56 optimize='+O2 +Onolimit', 57 cppflags='-Aa -D__STDC_EXT__ -DPERL_DONT_CREATE_GVSV +Z -z -D_HPUX_SOURCE -Ae -DPERL_DONT_CREATE_GVSV +Z -z -D_HPUX_SOURCE -Wl,+vnocompatwarnings +DD64 -I/pro/local/include' 58 ccversion='B3910B', gccversion='', gccosandvers='' 59 intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=87654321 60 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 61 ivtype='long', ivsize=8, nvtype='long double', nvsize=16, Off_t='off_t', lseeksize=8 62 alignbytes=16, prototype=define 63 Linker and Libraries: 64 ld='/usr/bin/ld', ldflags ='-L/pro/local/lib +DD64 -L/usr/lib/hpux64' 65 libpth=/pro/local/lib /usr/lib/hpux64 /lib /usr/lib /usr/ccs/lib /usr/local/lib 66 libs=-lcl -lpthread -lnsl -lnm -ldb -ldl -ldld -lm -lsec -lc 67 perllibs=-lcl -lpthread -lnsl -lnm -ldl -ldld -lm -lsec -lc 68 libc=/usr/lib/hpux64/libc.so, so=so, useshrplib=false, libperl=libperl.a 69 gnulibc_version='' 70 Dynamic Linking: 71 dlsrc=dl_hpux.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferred ' 72 cccdlflags='+Z', lddlflags='-b +vnocompatwarnings -L/pro/local/lib -L/usr/lib/hpux64' 73 74 75Characteristics of this binary (from libperl): 76 Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP USE_64_BIT_ALL 77 USE_64_BIT_INT USE_LARGE_FILES USE_LONG_DOUBLE 78 USE_PERLIO USE_PERL_ATOF 79 Built under hpux 80 Compiled at Dec 20 2010 12:46:00 81 @INC: 82 /pro/lib/perl5/site_perl/5.12.2/IA64.ARCHREV_0-LP64-ld 83 /pro/lib/perl5/site_perl/5.12.2 84 /pro/lib/perl5/5.12.2/IA64.ARCHREV_0-LP64-ld 85 /pro/lib/perl5/5.12.2 86 . 87