Changeset 23048 for src/perl6/viv

Show
Ignore:
Timestamp:
11/20/08 19:58:42 (7 weeks ago)
Author:
lwall
Message:

[gimme5] switch back to YAML::Syck till YAML::XS is fixed
[viv] allow input from stdin
[STD] always report worries for now

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/viv

    r22824 r23048  
    6262        } 
    6363    } 
    64     USAGE() unless -r $_[0]; 
    65     my $r = STD->parsefile($_[0])->item; 
     64#    USAGE() unless -r $_[0]; 
     65    my $r; 
     66    if (@_ and -f $_[0]) { 
     67        $r = STD->parsefile($_[0])->item; 
     68    } 
     69    else { 
     70        my $prog; 
     71        { 
     72            local $/; 
     73            $prog = <>; 
     74        } 
     75        $r = STD->parse($prog)->item; 
     76    } 
    6677    if ($output eq 'ast') { 
    6778        print Dump($r);