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 / Exit.pm

package Psh::Builtins::Exit;

=item * C<exit>

Exit out of the shell.

=cut

#
# TODO: What if a string is passed in?
#

sub bi_exit
{
       my $result = shift;
       $result = 0 unless defined($result) && $result;

       my $file= Psh::OS::catfile(Psh::OS::get_home_dir(),".${Psh::bin}_logout");
       if( -r $file) {
               process_file(abs_path($file));
       }

       Psh::OS::exit_psh($result);
}

1;