Changeset 21216 for v6/smop/sm0p.pl

Show
Ignore:
Timestamp:
07/04/08 14:43:10 (5 months ago)
Author:
ruoso
Message:

[smop] p6opaque still breaks... but now pmurias++ sm0p parser is used by default

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • v6/smop/sm0p.pl

    r21214 r21216  
    4343    my ($writer, $reader, $error) = map { gensym } 1..3; 
    4444    my $pid; 
    45     if ($ENV{SM0P_FASTER}) { 
    46         $pid = open3($writer, $reader, $error, 'perl',"-I$base/../../src/perl6",'-I'.$base.'/../../misc/sm0p', $base.'/../../misc/sm0p/sm0p_with_actions') || die "$@"; 
     45    unless ($ENV{SM0P_SLOWISH_KP6}) { 
     46        $pid = open3($writer, $reader, $error, 
     47                     'perl',"-I$base/../../src/perl6", 
     48                     '-I'.$base.'/../../misc/sm0p', 
     49                     $base.'/../../misc/sm0p/sm0p_with_actions') || die "$@"; 
    4750    } else { 
    48         $pid = open3($writer, $reader, $error, 'perl', '-I'.$base.'/../v6-KindaPerl6/compiled/perl5-kp6-mp6/lib',$base.'/sm0p/KP6sm0p.pl'); 
     51        $pid = open3($writer, $reader, $error, 
     52                     'perl', '-I'.$base.'/../v6-KindaPerl6/compiled/perl5-kp6-mp6/lib', 
     53                     $base.'/sm0p/KP6sm0p.pl') || die $@; 
    4954    } 
    5055    print {$writer} $code;