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

package Psh::Builtins::Elsif;

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

sub bi_elsif {
	return ($Psh::Builtins::If::last_success,undef) if $Psh::Builtins::If::last_success;
	return Psh::Builtins::If::bi_if(@_);
}
Commit	Line	Data
86530b38 AT	1	package Psh::Builtins::Elsif;
	2
	3	require Psh::Parser;
	4	require Psh::Builtins::If;
	5	require Psh;
	6	require Psh::Util;
	7
	8	sub bi_elsif {
	9	return ($Psh::Builtins::If::last_success,undef) if $Psh::Builtins::If::last_success;
	10	return Psh::Builtins::If::bi_if(@_);
	11	}