cvsuser 02/01/02 08:27:42
Modified: . Configure.pl
Log:
Allow 64-bit build of parrot on systems with a mixed 32/64 bit perl
Courtesy of David M. Lloyd <[EMAIL PROTECTED]>
Revision Changes Path
1.65 +3 -3 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -w -r1.64 -r1.65
--- Configure.pl 2 Jan 2002 13:51:36 -0000 1.64
+++ Configure.pl 2 Jan 2002 16:27:42 -0000 1.65
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.64 2002/01/02 13:51:36 simon Exp $
+# $Id: Configure.pl,v 1.65 2002/01/02 16:27:42 dan Exp $
#
# Author: Brent Dax
#
@@ -42,7 +42,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.64 2002/01/02 13:51:36 simon Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.65 2002/01/02 16:27:42 dan Exp $' . "\n";
exit;
}
@@ -398,7 +398,7 @@
foreach ('intvalsize', 'opcode_t_size') {
my $which = $_ eq 'intvalsize' ? 'packtype_i' : 'packtype_op';
my $format;
- if (($] >= 5.006) && ($c{$_} == $c{longsize}) ) {
+ if (($] >= 5.006) && ($c{$_} == $c{longsize}) && ($c{$_} == $Config{longsize})
) {
$format = 'l!';
}
elsif ($c{$_} == 4) {
