[perl #15713] [PATCH] jit detection

[via RT]

# New Ticket Created by  Leopold Toetsch 
# Please include the string:  [perl #15713]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15713 >


Hi,
detection of jit is broken, but jit works on i586/linux.

leo


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/31822/26488/aa9b81/jit.pl.patch


--- parrot/config/auto/jit.pl   Sat Jun  8 09:00:01 2002
+++ parrot-007/config/auto/jit.pl       Sun Jul 28 10:00:03 2002
@@ -50,6 +50,7 @@
 
   my $jitarchname              =  "$cpuarch-$osname";
   $jitarchname                 =~ s/i[456]86/i386/i;
+  $cpuarch                     =~ s/i[456]86/i386/i;
   $jitarchname                 =~ s/-(net|free|open)bsd$/-bsd/i;
   my $jitcapable               =  0;
 
@@ -57,7 +58,7 @@
     $jitcapable = 1;
   }
 
-  $jitcapable = $_[0] if defined $_[0];
+#  $jitcapable = $_[0] if defined $_[0];
 
   if($jitcapable) {
     my($jitcpuarch, $jitosname) =  split('-', $jitarchname);