[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));
}
Commit	Line	Data
86530b38 AT	1	package Psh::Builtins::Else;
	2
	3	require Psh::Parser;
	4	require Psh::Builtins::If;
	5	require Psh;
	6	require Psh::Util;
	7
	8	sub bi_else {
	9	my @words=@{$_[1]};
	10	return ($Psh::Builtins::If::last_success,undef) if $Psh::Builtins::If::last_success;
	11	return Psh::evl(Psh::Parser::ungroup(shift @words));
	12	}