diff --git a/config/inter/types.pm b/config/inter/types.pm
index cd6720e..39a95d8 100644
|
a
|
b
|
|
| 34 | 34 | |
| 35 | 35 | my $intval = $conf->options->get('intval') || 'long'; |
| 36 | 36 | my $floatval = $conf->options->get('floatval') || 'double'; |
| 37 | | my $opcode = $conf->options->get('opcode') || 'long'; |
| | 37 | my $opcode = $intval; |
| 38 | 38 | |
| 39 | 39 | if ( $conf->options->get('ask') ) { |
| 40 | 40 | $intval = prompt( "\n\nHow big would you like your integers to be?", $intval ); |
| 41 | 41 | $floatval = prompt( "And your floats?", $floatval ); |
| 42 | | $opcode = prompt( "What's your native opcode type?", $opcode ); |
| 43 | 42 | print "\n"; |
| 44 | 43 | } |
| 45 | 44 | |
diff --git a/t/steps/inter/types-01.t b/t/steps/inter/types-01.t
index 261d212..4c77f13 100644
|
a
|
b
|
|
| 55 | 55 | |
| 56 | 56 | $conf->options->set('intval' => 'alpha'); |
| 57 | 57 | $conf->options->set('floatval' => 'beta'); |
| 58 | | $conf->options->set('opcode' => 'gamma'); |
| 59 | | @prompts = qw( delta epsilon zeta ); |
| | 58 | @prompts = qw( delta epsilon ); |
| 60 | 59 | |
| 61 | 60 | $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts; |
| 62 | 61 | can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') ); |
