3 package Config
::Perl
::V
;
10 use vars
qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
13 @EXPORT_OK = qw( plv2hash summary myconfig signature );
15 all
=> [ @EXPORT_OK ],
16 sig
=> [ "signature" ],
19 # Characteristics of this binary (from libperl):
20 # Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
21 # USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO
23 # The list are as the perl binary has stored it in PL_bincompat_options
25 # perl.c line 1768 (first block)
26 # perl.h line 4454 (second block),
27 my %BTD = map { $_ => 0 } qw(
39 PERL_MEM_LOG_TIMESTAMP
42 USE_ATTRIBUTES_FOR_PERLIO
48 DEBUG_LEAKING_SCALARS_FORK_DUMP
53 PERL_DEBUG_READONLY_OPS
60 PERL_OLD_COPY_ON_WRITE
63 PERL_USES_PL_PIDSTATUS
80 # These are all the keys that are
81 # 1. Always present in %Config (first block)
82 # 2. Reported by 'perl -V' (the rest)
109 git_uncommitted_changes
113 package revision version_patchlevel_string
115 osname osvers archname
118 hint useposix d_sigaction
119 useithreads usemultiplicity
120 useperlio d_sfio uselargefiles usesocks
121 use64bitint use64bitall uselongdouble
122 usemymalloc bincompat5005
127 ccversion gccversion gccosandvers
128 intsize longsize ptrsize doublesize byteorder
129 d_longlong longlongsize d_longdbl longdblsize
130 ivtype ivsize nvtype nvsize lseektype lseeksize
137 libc so useshrplib libperl
140 dlsrc dlext d_dlsymun ccdlflags
155 for ( [ lseektype
=> "Off_t" ],
156 [ myuname
=> "uname" ],
157 [ perl_patchlevel
=> "patch" ],
159 my ($official, $derived) = @
$_;
160 $conf->{config
}{$derived} ||= $conf->{config
}{$official};
161 $conf->{config
}{$official} ||= $conf->{config
}{$derived};
162 $conf->{derived
}{$derived} = delete $conf->{config
}{$derived};
165 if (exists $conf->{config
}{version_patchlevel_string
} &&
166 !exists $conf->{config
}{api_version
}) {
167 my $vps = $conf->{config
}{version_patchlevel_string
};
168 $vps =~ s{\b revision \s+ (\S+) }{}x and
169 $conf->{config
}{revision
} ||= $1;
171 $vps =~ s{\b version \s+ (\S+) }{}x and
172 $conf->{config
}{api_version
} ||= $1;
173 $vps =~ s{\b subversion \s+ (\S+) }{}x and
174 $conf->{config
}{subversion
} ||= $1;
175 $vps =~ s{\b patch \s+ (\S+) }{}x and
176 $conf->{config
}{perl_patchlevel
} ||= $1;
179 ($conf->{config
}{version_patchlevel_string
} ||= join " ",
180 map { ($_, $conf->{config
}{$_} ) }
181 grep { $conf->{config
}{$_} }
182 qw( api_version subversion perl_patchlevel )) =~ s/\bperl_//;
184 $conf->{config
}{perl_patchlevel
} ||= ""; # 0 is not a valid patchlevel
186 if ($conf->{config
}{perl_patchlevel
} =~ m{^git\w*-([^-]+)}i) {
187 $conf->{config
}{git_branch
} ||= $1;
188 $conf->{config
}{git_describe
} ||= $conf->{config
}{perl_patchlevel
};
197 for (split m/\n+/ => join "\n", @_) {
199 if (s/^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)//) {
200 $config{"package"} = $1;
202 $rev =~ s/^ revision \s+ (\S+) \s*//x and $config{revision
} = $1;
203 $rev and $config{version_patchlevel_string
} = $rev;
204 my ($rel) = $config{package} =~ m{perl(\d)};
205 my ($vers, $subvers) = $rev =~ m{version\s+(\d+)\s+subversion\s+(\d+)};
206 defined $vers && defined $subvers && defined $rel and
207 $config{version
} = "$rel.$vers.$subvers";
211 if (s/^\s+(Snapshot of:)\s+(\S+)//) {
212 $config{git_commit_id_title
} = $1;
213 $config{git_commit_id
} = $2;
217 my %kv = m/\G,?\s*([^=]+)=('[^']+?'|\S+)/gc;
219 while (my ($k, $v) = each %kv) {
222 $v =~ m/^'(.*)'$/ and $v = $1;
228 my $build = { %empty_build };
229 $build->{osname
} = $config{osname
};
230 return _make_derived
({
241 my $conf = shift || myconfig
();
242 ref $conf eq "HASH" &&
243 exists $conf->{config
} && exists $conf->{build
} or return;
246 exists $conf->{config
}{$_} ?
( $_ => $conf->{config
}{$_} ) : () }
247 qw( archname osname osvers revision patchlevel subversion version
248 cc ccversion gccversion config_args inc_version_list
249 d_longdbl d_longlong use64bitall use64bitint useithreads
250 uselongdouble usemultiplicity usemymalloc useperlio useshrplib
251 doublesize intsize ivsize nvsize longdblsize longlongsize lseeksize
253 $info{$_}++ for grep { $conf->{build
}{options
}{$_} } keys %{$conf->{build
}{options
}};
260 eval { require Digest
::MD5
};
261 $@
and return "00000000000000000000000000000000";
263 my $conf = shift || summary
();
264 delete $conf->{config_args
};
265 return Digest
::MD5
::md5_hex
(join "\xFF" => map {
266 "$_=".(defined $conf->{$_} ?
$conf->{$_} : "\xFE");
273 my %args = ref $args eq "HASH" ?
%$args :
274 ref $args eq "ARRAY" ? @
$args : ();
276 #y $pv = qx[$^X -e"sub Config::myconfig{};" -V];
278 $pv =~ s{.*?\n\n}{}s;
279 $pv =~ s{\n(?: \s+|\t\s*)}{ }g;
283 my $build = { %empty_build };
284 $pv =~ m{^\s+Built under (.*)}m and $build->{osname
} = $1;
285 $pv =~ m{^\s+Compiled at (.*)}m and $build->{stamp
} = $1;
286 $pv =~ m{^\s+Locally applied patches:\s+(.*)}m and $build->{patches
} = [ split m/\s+/, $1 ];
287 $pv =~ m{^\s+Compile-time options:\s+(.*)}m and map { $build->{options
}{$_} = 1 } split m/\s+/, $1;
289 my @KEYS = keys %ENV;
291 map { $_ => $ENV{$_} } grep m/^PERL/ => @KEYS;
293 map { $env{$_} = $ENV{$_} } grep m{$args{env}} => @KEYS;
295 my %config = map { $_ => $Config{$_} } @config_vars;
297 return _make_derived
({
299 environment
=> \
%env,
312 Config::Perl::V - Structured data retrieval of perl -V output
318 my $local_config = Config::Perl::V::myconfig ();
319 print $local_config->{config}{osname};
323 =head2 $conf = myconfig ()
325 This function will collect the data described in L<the hash structure> below,
326 and return that as a hash reference. It optionally accepts an option to
327 include more entries from %ENV. See L<environment> below.
329 Note that this will not work on uninstalled perls when called with
330 C<-I/path/to/uninstalled/perl/lib>, but it works when that path is in
331 C<$PERL5LIB> or in C<$PERL5OPT>, as paths passed using C<-I> are not
332 known when the C<-V> information is collected.
334 =head2 $conf = plv2hash ($text [, ...])
336 Convert a sole 'perl -V' text block, or list of lines, to a complete
337 myconfig hash. All unknown entries are defaulted.
339 =head2 $info = summary ([$conf])
341 Return an arbitrary selection of the information. If no C<$conf> is
342 given, C<myconfig ()> is used instead.
344 =head2 $md5 = signature ([$conf])
346 Return the MD5 of the info returned by C<summary ()> without the
347 C<config_args> entry.
349 If C<Digest::MD5> is not available, it return a string with only C<0>'s.
351 =head2 The hash structure
353 The returned hash consists of 4 parts:
359 This information is extracted from the second block that is emitted by
360 C<perl -V>, and usually looks something like
362 Characteristics of this binary (from libperl):
363 Compile-time options: DEBUGGING USE_64_BIT_INT USE_LARGE_FILES
364 Locally applied patches:
368 Compiled at Jun 13 2005 10:44:20
370 /usr/lib/perl5/5.8.7/i686-linux-64int
372 /usr/lib/perl5/site_perl/5.8.7/i686-linux-64int
373 /usr/lib/perl5/site_perl/5.8.7
374 /usr/lib/perl5/site_perl
379 Characteristics of this binary (from libperl):
380 Compile-time options: DEBUGGING MULTIPLICITY
381 PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT
382 PERL_MALLOC_WRAP PERL_TRACK_MEMPOOL
383 PERL_USE_SAFE_PUTENV USE_ITHREADS
384 USE_LARGE_FILES USE_PERLIO
387 Compiled at Jan 28 2009 15:26:59
389 This information is not available anywhere else, including C<%Config>,
390 but it is the information that is only known to the perl binary.
392 The extracted information is stored in 5 entries in the C<build> hash:
398 This is most likely the same as C<$Config{osname}>, and was the name
399 known when perl was built. It might be different if perl was cross-compiled.
401 The default for this field, if it cannot be extracted, is to copy
402 C<$Config{osname}>. The two may be differing in casing (OpenBSD vs openbsd).
406 This is the time string for which the perl binary was compiled. The default
411 This is a hash with all the known defines as keys. The value is either 0,
412 which means unknown or unset, or 1, which means defined.
416 As some variables are reported by a different name in the output of C<perl -V>
417 than their actual name in C<%Config>, I decided to leave the C<config> entry
418 as close to reality as possible, and put in the entries that might have been
419 guessed by the printed output in a separate block.
423 This is a list of optionally locally applied patches. Default is an empty list.
429 By default this hash is only filled with the environment variables
430 out of %ENV that start with C<PERL>, but you can pass the C<env> option
431 to myconfig to get more
433 my $conf = Config::Perl::V::myconfig ({ env => qr/^ORACLE/ });
434 my $conf = Config::Perl::V::myconfig ([ env => qr/^ORACLE/ ]);
438 This hash is filled with the variables that C<perl -V> fills its report
439 with, and it has the same variables that C<Config::myconfig> returns
444 This is the list of default @INC.
450 This module was written to be able to return the configuration for the
451 currently used perl as deeply as needed for the CPANTESTERS framework.
452 Up until now they used the output of myconfig as a single text blob,
453 and so it was missing the vital binary characteristics of the running
454 perl and the optional applied patches.
458 Please feedback what is wrong
462 * Implement retrieval functions/methods
469 H.Merijn Brand <h.m.brand@xs4all.nl>
471 =head1 COPYRIGHT AND LICENSE
473 Copyright (C) 2009-2012 H.Merijn Brand
475 This library is free software; you can redistribute it and/or modify
476 it under the same terms as Perl itself.