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
46 DEBUG_LEAKING_SCALARS_FORK_DUMP
51 PERL_DEBUG_READONLY_OPS
58 PERL_OLD_COPY_ON_WRITE
61 PERL_USES_PL_PIDSTATUS
78 # These are all the keys that are
79 # 1. Always present in %Config (first block)
80 # 2. Reported by 'perl -V' (the rest)
107 git_uncommitted_changes
111 package revision version_patchlevel_string
113 osname osvers archname
116 hint useposix d_sigaction
117 useithreads usemultiplicity
118 useperlio d_sfio uselargefiles usesocks
119 use64bitint use64bitall uselongdouble
120 usemymalloc bincompat5005
125 ccversion gccversion gccosandvers
126 intsize longsize ptrsize doublesize byteorder
127 d_longlong longlongsize d_longdbl longdblsize
128 ivtype ivsize nvtype nvsize lseektype lseeksize
135 libc so useshrplib libperl
138 dlsrc dlext d_dlsymun ccdlflags
153 for ( [ lseektype
=> "Off_t" ],
154 [ myuname
=> "uname" ],
155 [ perl_patchlevel
=> "patch" ],
157 my ($official, $derived) = @
$_;
158 $conf->{config
}{$derived} ||= $conf->{config
}{$official};
159 $conf->{config
}{$official} ||= $conf->{config
}{$derived};
160 $conf->{derived
}{$derived} = delete $conf->{config
}{$derived};
163 if (exists $conf->{config
}{version_patchlevel_string
} &&
164 !exists $conf->{config
}{api_version
}) {
165 my $vps = $conf->{config
}{version_patchlevel_string
};
166 $vps =~ s{\b revision \s+ (\S+) }{}x and
167 $conf->{config
}{revision
} ||= $1;
169 $vps =~ s{\b version \s+ (\S+) }{}x and
170 $conf->{config
}{api_version
} ||= $1;
171 $vps =~ s{\b subversion \s+ (\S+) }{}x and
172 $conf->{config
}{subversion
} ||= $1;
173 $vps =~ s{\b patch \s+ (\S+) }{}x and
174 $conf->{config
}{perl_patchlevel
} ||= $1;
177 ($conf->{config
}{version_patchlevel_string
} ||= join " ",
178 map { ($_, $conf->{config
}{$_} ) }
179 grep { $conf->{config
}{$_} }
180 qw( api_version subversion perl_patchlevel )) =~ s/\bperl_//;
182 $conf->{config
}{perl_patchlevel
} ||= ""; # 0 is not a valid patchlevel
184 if ($conf->{config
}{perl_patchlevel
} =~ m{^git\w*-([^-]+)}i) {
185 $conf->{config
}{git_branch
} ||= $1;
186 $conf->{config
}{git_describe
} ||= $conf->{config
}{perl_patchlevel
};
195 for (split m/\n+/ => join "\n", @_) {
197 if (s/^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)//) {
198 $config{"package"} = $1;
200 $rev =~ s/^ revision \s+ (\S+) \s*//x and $config{revision
} = $1;
201 $rev and $config{version_patchlevel_string
} = $rev;
202 my ($rel) = $config{package} =~ m{perl(\d)};
203 my ($vers, $subvers) = $rev =~ m{version\s+(\d+)\s+subversion\s+(\d+)};
204 defined $vers && defined $subvers && defined $rel and
205 $config{version
} = "$rel.$vers.$subvers";
209 if (s/^\s+(Snapshot of:)\s+(\S+)//) {
210 $config{git_commit_id_title
} = $1;
211 $config{git_commit_id
} = $2;
215 my %kv = m/\G,?\s*([^=]+)=('[^']+?'|\S+)/gc;
217 while (my ($k, $v) = each %kv) {
220 $v =~ m/^'(.*)'$/ and $v = $1;
226 my $build = { %empty_build };
227 $build->{osname
} = $config{osname
};
228 return _make_derived
({
239 my $conf = shift || myconfig
();
240 ref $conf eq "HASH" &&
241 exists $conf->{config
} && exists $conf->{build
} or return;
244 exists $conf->{config
}{$_} ?
( $_ => $conf->{config
}{$_} ) : () }
245 qw( archname osname osvers revision patchlevel subversion version
246 cc ccversion gccversion config_args inc_version_list
247 d_longdbl d_longlong use64bitall use64bitint useithreads
248 uselongdouble usemultiplicity usemymalloc useperlio useshrplib
249 doublesize intsize ivsize nvsize longdblsize longlongsize lseeksize
251 $info{$_}++ for grep { $conf->{build
}{options
}{$_} } keys %{$conf->{build
}{options
}};
258 eval { require Digest
::MD5
};
259 $@
and return "00000000000000000000000000000000";
261 my $conf = shift || summary
();
262 delete $conf->{config_args
};
263 return Digest
::MD5
::md5_hex
(join "\xFF" => map {
264 "$_=".(defined $conf->{$_} ?
$conf->{$_} : "\xFE");
271 my %args = ref $args eq "HASH" ?
%$args :
272 ref $args eq "ARRAY" ? @
$args : ();
274 #y $pv = qx[$^X -e"sub Config::myconfig{};" -V];
276 $pv =~ s{.*?\n\n}{}s;
277 $pv =~ s{\n(?: \s+|\t\s*)}{ }g;
281 my $build = { %empty_build };
282 $pv =~ m{^\s+Built under (.*)}m and $build->{osname
} = $1;
283 $pv =~ m{^\s+Compiled at (.*)}m and $build->{stamp
} = $1;
284 $pv =~ m{^\s+Locally applied patches:\s+(.*)}m and $build->{patches
} = [ split m/\s+/, $1 ];
285 $pv =~ m{^\s+Compile-time options:\s+(.*)}m and map { $build->{options
}{$_} = 1 } split m/\s+/, $1;
287 my @KEYS = keys %ENV;
289 map { $_ => $ENV{$_} } grep m/^PERL/ => @KEYS;
291 map { $env{$_} = $ENV{$_} } grep m{$args{env}} => @KEYS;
293 my %config = map { $_ => $Config{$_} } @config_vars;
295 return _make_derived
({
297 environment
=> \
%env,
310 Config::Perl::V - Structured data retreival of perl -V output
316 my $local_config = Config::Perl::V::myconfig ();
317 print $local_config->{config}{osname};
321 =head2 $conf = myconfig ()
323 This function will collect the data described in L<the hash structure> below,
324 and return that as a hash reference. It optionally accepts an option to
325 include more entries from %ENV. See L<environment> below.
327 Note that this will not work on uninstalled perls when called with
328 C<-I/path/to/uninstalled/perl/lib>, but it works when that path is in
329 C<$PERL5LIB> or in C<$PERL5OPT>, as paths passed using C<-I> are not
330 known when the C<-V> information is collected.
332 =head2 $conf = plv2hash ($text [, ...])
334 Convert a sole 'perl -V' text block, or list of lines, to a complete
335 myconfig hash. All unknown entries are defaulted.
337 =head2 $info = summary ([$conf])
339 Return an arbitrary selection of the information. If no C<$conf> is
340 given, C<myconfig ()> is used instead.
342 =head2 $md5 = signature ([$conf])
344 Return the MD5 of the info returned by C<summary ()> without the
345 C<config_args> entry.
347 If C<Digest::MD5> is not available, it return a string with only C<0>'s.
349 =head2 The hash structure
351 The returned hash consists of 4 parts:
357 This information is extracted from the second block that is emitted by
358 C<perl -V>, and usually looks something like
360 Characteristics of this binary (from libperl):
361 Compile-time options: DEBUGGING USE_64_BIT_INT USE_LARGE_FILES
362 Locally applied patches:
366 Compiled at Jun 13 2005 10:44:20
368 /usr/lib/perl5/5.8.7/i686-linux-64int
370 /usr/lib/perl5/site_perl/5.8.7/i686-linux-64int
371 /usr/lib/perl5/site_perl/5.8.7
372 /usr/lib/perl5/site_perl
377 Characteristics of this binary (from libperl):
378 Compile-time options: DEBUGGING MULTIPLICITY
379 PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT
380 PERL_MALLOC_WRAP PERL_TRACK_MEMPOOL
381 PERL_USE_SAFE_PUTENV USE_ITHREADS
382 USE_LARGE_FILES USE_PERLIO
385 Compiled at Jan 28 2009 15:26:59
387 This information is not available anywhere else, including C<%Config>,
388 but it is the information that is only known to the perl binary.
390 The extracted information is stored in 5 entries in the C<build> hash:
396 This is most likely the same as C$Config{osname}>, and was the name
397 known when perl was built. It might be different if perl was cross-compiled.
399 The default for this field, if it cannot be extracted, is to copy C<$Config{osname}>.
403 This is the time string for which the perl binary was compiled. The default
408 This is a hash with all the known defines as keys. The value is either 0,
409 which means unknown or unset, or 1, which means defined.
413 As some verables are reported by a different name in the output of C<perl -V>
414 than their actual name in C<%Config>, I decided to leave the C<config> entry
415 as close to reality as possible, and put in the entries that might have been
416 guessed by the printed output in a seperate block.
420 This is a list of optionally locally applied patches. Default is an empty list.
426 By default this hash is only filled with the environment variables
427 out of %ENV that start with C<PERL>, but you can pass the C<env> option
428 to myconfig to get more
430 my $conf = Config::Perl::V::myconfig ({ env => qr/^ORACLE/ });
431 my $conf = Config::Perl::V::myconfig ([ env => qr/^ORACLE/ ]);
435 This hash is filled with the variables that C<perl -V> fills its report
436 with, and it has the same variables that C<Config::myconfig> returns
441 This is the list of default @INC.
447 This module was written to be able to return the configuration for the
448 currently used perl as deeply as needed for the CPANTESTERS framework.
449 Up until now they used the output of myconfig as a single text blob,
450 and so it was missing the vital binary characteristics of the running
451 perl and the optional applied patches.
455 Please feedback what is wrong
459 * Implement retrieval functions/methods
466 H.Merijn Brand <h.m.brand@xs4all.nl>
468 =head1 COPYRIGHT AND LICENSE
470 Copyright (C) 2009 H.Merijn Brand
472 This library is free software; you can redistribute it and/or modify
473 it under the same terms as Perl itself.