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

Reply via email to