James E Keenan wrote:
In any case, you can use Parrot::Configure::Trace to trace how a
particular Parrot::Configure object attribute develops over the course
of the 60+ configuration steps. My guess is that you'd want to look at
'ld' and 'ldflags', perhaps others.
Try adapting the attached.
#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Carp;
use lib ('/Users/jimk/work/parrot/lib');
use Parrot::Configure::Trace;
$Data::Dumper::Indent = 1;
my $workdir = qq{/Users/jimk/work};
my $sandbox = shift @ARGV;
chdir qq{$workdir/$sandbox}
or croak "Unable to change to $sandbox: $!";
my @tobetraced = @ARGV;
my $obj = Parrot::Configure::Trace->new();
foreach my $attr (@tobetraced) {
print "Tracing evolution of $attr ...\n\n";
$attr = $obj->trace_data_c( {
attr => $attr,
verbose => 1,
} );
foreach my $step (@{$attr}) {
my ($k,$v) = each %$step;
$v = q{} if not defined $v;
print "$k => $v\n";
}
}
