Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Else.pm

package Psh::Builtins::Else;

require Psh::Parser;
require Psh::Builtins::If;
require Psh;
require Psh::Util;

sub bi_else {
       my @words=@{$_[1]};
       return ($Psh::Builtins::If::last_success,undef) if $Psh::Builtins::If::last_success;
       return Psh::evl(Psh::Parser::ungroup(shift @words));
}