cvsuser 04/07/16 02:08:59
Modified: config/inter types.pl
Log:
Configure no longer inherits the types for INTVAL/FLOATVAL/opcode_t from the Perl
that executed it.
Revision Changes Path
1.3 +5 -11 parrot/config/inter/types.pl
Index: types.pl
===================================================================
RCS file: /cvs/public/parrot/config/inter/types.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- types.pl 26 Feb 2004 00:43:11 -0000 1.2
+++ types.pl 16 Jul 2004 09:08:59 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: types.pl,v 1.2 2004/02/26 00:43:11 mikescott Exp $
+# $Id: types.pl,v 1.3 2004/07/16 09:08:59 brentdax Exp $
=head1 NAME
@@ -19,8 +19,6 @@
use vars qw($description @args);
use Parrot::Configure::Step ':inter';
-use Config;
-
$description = 'Determining what types Parrot should use...';
@args=qw(ask intval opcode floatval);
@@ -29,13 +27,9 @@
my %args;
@[EMAIL PROTECTED]@_;
- my $intval=$Config{ivtype} || 'long';
- my $floatval=$Config{nvtype} || 'double';
- my $opcode=$Config{ivtype} || 'long';
-
- $intval=$args{intval} if defined $args{intval};
- $floatval=$args{floatval} if defined $args{floatval};
- $opcode=$args{opcode} if defined $args{opcode};
+ my $intval=$args{intval} || 'long';
+ my $floatval=$args{floatval} || 'double';
+ my $opcode=$args{opcode} || 'long';
if($args{ask}) {
$intval=prompt("\n\nHow big would you like your integers to be?", $intval);
