Changeset 561


Ignore:
Timestamp:
Nov 24, 2004, 1:23:03 AM (17 years ago)
Author:
kake
Message:

Ensure that old answers to ellipsoid question are preserved when skipping config.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Build.PL

    r560 r561  
    252252
    253253if ( $geo_handler eq "3" ) {
     254    my $qu = "Which ellipsoid do you want to use? (eg 'Airy', 'WGS-84')";
    254255    my $ellipsoid;
    255256    if ( $skip_config ) {
    256257        $ellipsoid = $existing_config{ellipsoid} || "International";
    257258    } else {
    258         my $qu = "Which ellipsoid do you want to use? (eg 'Airy', 'WGS-84')";
    259259        my $def = $existing_config{ellipsoid} || "International";
    260         my $choice = Module::Build->prompt("\n".$qu, $def);
    261         $choice =~ s/^\s*//;
    262         $choice =~ s/\s*$//;
    263         push @answers, {
    264                          question => $qu,
    265                          variable => "ellipsoid",
    266                          value    => $choice,
    267                        };
    268     }
     260        $ellipsoid = Module::Build->prompt("\n".$qu, $def);
     261        $ellipsoid =~ s/^\s*//;
     262        $ellipsoid =~ s/\s*$//;
     263    }
     264    push @answers, {
     265                     question => $qu,
     266                     variable => "ellipsoid",
     267                     value    => $ellipsoid,
     268                   };
    269269}
    270270
Note: See TracChangeset for help on using the changeset viewer.