On Mon Aug 06 15:41:43 2007, jkeen <!-- x --> at verizon.net wrote:
>
> This is the block in question in config/init/defaults.pm:
>
> my $archname = $Config{archname};
> if ($m) {
> if ( $archname =~ /x86_64/ && $m eq '32' ) {
> $archname =~ s/x86_64/i386/;
>
> # adjust gcc?
> for my $cc qw(cc cxx link ld) {
> $conf->data->add( ' ', $cc, '-m32' );
> }
>
> # and lib flags
> for my $lib qw(ld_load_flags ld_share_flags ldflags
linkflags) {
> my $item = $conf->data->get($lib);
> ( my $ni = $item ) =~ s/lib64/lib/g;
> $conf->data->set( $lib, $ni );
> }
> }
> }
>
The extent to which this code has been covered by tests can be seen
here:
http://thenceforward.net/parrot/coverage/configure-build/config-init-defaults-pm.html