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

package Psh::Builtins::Delenv;

require Psh::Support::Env;
require Psh::Util;

=item * C<delenv NAME [NAME2 NAME3 ...]>

Deletes the names environment variables.

=cut

sub bi_delenv
{
	my @args= split(' ',$_[0]);
	if( !@args) {
		Psh::Util::print_error_i18n('usage_delenv');
		return (0,undef);
	}
	foreach my $var ( @args) {
		my @result = Psh::PerlEval::protected_eval("tied(\$$var)");
		my $oldtie = $result[0];
		if (defined($oldtie)) {
			Psh::PerlEval::protected_eval("untie(\$$var)");
		}
		my $oldval= $ENV{$var};
		delete($ENV{$var});
		return (1,$oldval);
	}
}

1;