diff --git a/config/inter/types.pm b/config/inter/types.pm index cd6720e..39a95d8 100644 --- a/config/inter/types.pm +++ b/config/inter/types.pm @@ -34,12 +34,11 @@ sub runstep { my $intval = $conf->options->get('intval') || 'long'; my $floatval = $conf->options->get('floatval') || 'double'; - my $opcode = $conf->options->get('opcode') || 'long'; + my $opcode = $intval; if ( $conf->options->get('ask') ) { $intval = prompt( "\n\nHow big would you like your integers to be?", $intval ); $floatval = prompt( "And your floats?", $floatval ); - $opcode = prompt( "What's your native opcode type?", $opcode ); print "\n"; } diff --git a/t/steps/inter/types-01.t b/t/steps/inter/types-01.t index 261d212..4c77f13 100644 --- a/t/steps/inter/types-01.t +++ b/t/steps/inter/types-01.t @@ -55,8 +55,7 @@ my ( @prompts, $object ); $conf->options->set('intval' => 'alpha'); $conf->options->set('floatval' => 'beta'); -$conf->options->set('opcode' => 'gamma'); -@prompts = qw( delta epsilon zeta ); +@prompts = qw( delta epsilon ); $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts; can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );