3 package Config
::Perl
::V
;
12 # Characteristics of this binary (from libperl):
13 # Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
14 # USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO
16 # The list are as the perl binary has stored it in PL_bincompat_options
18 # perl.c line 1768 (first block)
19 # perl.h line 4454 (second block),
20 my %BTD = map { $_ => 0 } qw(
30 PERL_MEM_LOG_TIMESTAMP
37 DEBUG_LEAKING_SCALARS_FORK_DUMP
42 PERL_DEBUG_READONLY_OPS
49 PERL_OLD_COPY_ON_WRITE
52 PERL_USES_PL_PIDSTATUS
69 # These are all the keys that are
70 # 1. Always present in %Config (first block)
71 # 2. Reported by 'perl -V' (the rest)
98 git_uncommitted_changes
102 package revision version_patchlevel_string
104 osname osvers archname
107 hint useposix d_sigaction
108 useithreads usemultiplicity
109 useperlio d_sfio uselargefiles usesocks
110 use64bitint use64bitall uselongdouble
111 usemymalloc bincompat5005
116 ccversion gccversion gccosandvers
117 intsize longsize ptrsize doublesize byteorder
118 d_longlong longlongsize d_longdbl longdblsize
119 ivtype ivsize nvtype nvsize lseektype lseeksize
126 libc so useshrplib libperl
129 dlsrc dlext d_dlsymun ccdlflags
144 for ( [ lseektype
=> "Off_t" ],
145 [ myuname
=> "uname" ],
147 my ($official, $derived) = @
$_;
148 $conf->{config
}{$derived} ||= $conf->{config
}{$official};
149 $conf->{config
}{$official} ||= $conf->{config
}{$derived};
150 $conf->{derived
}{$derived} = delete $conf->{config
}{$derived};
159 for (split m/\n+/ => join "\n", @_) {
161 if (s/^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)//) {
162 $config{"package"} = $1;
164 $rev =~ s/^ revision \s+ (\S+) \s*//x and $config{revision
} = $1;
165 $rev and $config{version_patchlevel_string
} = $rev;
169 my %kv = m/\G,?\s*([^=]+)=('[^']+?'|\S+)/gc;
171 while (my ($k, $v) = each %kv) {
174 $v =~ m/^'(.*)'$/ and $v = $1;
180 my $build = { %empty_build };
181 $build->{osname
} = $config{osname
};
182 return _make_derived
({
194 my %args = ref $args eq "HASH" ?
%$args :
195 ref $args eq "ARRAY" ? @
$args : ();
197 #y $pv = qx[$^X -e"sub Config::myconfig{};" -V];
199 $pv =~ s{.*?\n\n}{}s;
200 $pv =~ s{\n(?: \s+|\t\s*)}{ }g;
204 my $build = { %empty_build };
205 $pv =~ m{^\s+Built under (.*)}m and $build->{osname
} = $1;
206 $pv =~ m{^\s+Compiled at (.*)}m and $build->{stamp
} = $1;
207 $pv =~ m{^\s+Locally applied patches:\s+(.*)}m and $build->{patches
} = [ split m/\s+/, $1 ];
208 $pv =~ m{^\s+Compile-time options:\s+(.*)}m and map { $build->{options
}{$_} = 1 } split m/\s+/, $1;
210 my @KEYS = keys %ENV;
212 map { $_ => $ENV{$_} } grep m/^PERL/ => @KEYS;
214 map { $env{$_} = $ENV{$_} } grep m{$args{env}} => @KEYS;
216 my %config = map { $_ => $Config{$_} } @config_vars;
218 return _make_derived
({
220 environment
=> \
%env,
233 Config::Perl::V - Structured data retreival of perl -V output
239 my $local_config = Config::Perl::V::myconfig ();
240 print $local_config->{config}{osname};
246 This function will collect the data decribed in L<the hash structure> below,
250 Convert a sole 'perl -V' text block to a complete myconfig hash.
251 All unknown entries are defaulted.
253 =head2 The hash structure
255 The returned hash consists of 4 parts:
261 This information is extracted from the second block that is emitted by
262 C<perl -V>, and usually looks something like
264 Characteristics of this binary (from libperl):
265 Compile-time options: DEBUGGING USE_64_BIT_INT USE_LARGE_FILES
266 Locally applied patches:
270 Compiled at Jun 13 2005 10:44:20
272 /usr/lib/perl5/5.8.7/i686-linux-64int
274 /usr/lib/perl5/site_perl/5.8.7/i686-linux-64int
275 /usr/lib/perl5/site_perl/5.8.7
276 /usr/lib/perl5/site_perl
281 Characteristics of this binary (from libperl):
282 Compile-time options: DEBUGGING MULTIPLICITY
283 PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT
284 PERL_MALLOC_WRAP PERL_TRACK_MEMPOOL
285 PERL_USE_SAFE_PUTENV USE_ITHREADS
286 USE_LARGE_FILES USE_PERLIO
289 Compiled at Jan 28 2009 15:26:59
291 This information is not available anywhere else, including C<%Config>,
292 but it is the information that is only known to the perl binary.
294 The extracted information is stored in 5 entries in the C<build> hash:
300 This is most likely the same as C$Config{osname}>, and was the name
301 known when perl was built. It might be different if perl was cross-compiled.
303 The default for this field, if it cannot be extracted, is to copy C<$Config{osname}>.
307 This is the time string for which the perl binary was compiled. The default
312 This is a hash with all the known defines as keys. The value is either 0,
313 which means unknown or unset, or 1, which means defined.
317 As some verables are reported by a different name in the output of C<perl -V>
318 than their actual name in C<%Config>, I decided to leave the C<config> entry
319 as close to reality as possible, and put in the entries that might have been
320 guessed by the printed output in a seperate block.
324 This is a list of optionally locally applied patches. Default is an empty list.
328 This include the flags that define the binary compatibility, like if
329 this perl was compiled for 64bitall (C<USE_64_BIT_ALL>), and basically is
333 By default this hash is only filled with the environment variables
334 out of %ENV that start with C<PERL>, but you can pass the C<env> option
335 to myconfig to get more
337 my $conf = Config::Perl::V::myconfig ({ env => qr/^ORACLE/ });
338 my $conf = Config::Perl::V::myconfig ([ env => qr/^ORACLE/ ]);
342 This hash is filled with the variables that C<perl -V> fils it's report
343 with, and it has the same variables that C<Config::myconfig> returns
348 This is the list of default @INC.
354 This module was written to be able to return the configuration for the
355 currently used perl as deeply as needed for the CPANTESTERS framework.
356 Up until now they used the output of myconfig as a single text blob,
357 and so it was missing the vital binary characteristics of the running
358 perl and the optional applied patches.
362 Please feedback what is wrong
366 * Implement retrieval functions/methods
368 * Include the perl -V parse block from Andreas
372 H.Merijn Brand <h.m.brand@xs4all.nl>
374 =head1 COPYRIGHT AND LICENSE
376 Copyright (C) 2009 H.Merijn Brand
378 This library is free software; you can redistribute it and/or modify
379 it under the same terms as Perl itself.