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

package Psh::Builtins::Fallback::Env;

=item * C<env>

Prints out the current environment

=cut

sub bi_env
{
	foreach my $key (sort keys %ENV) {
		Psh::Util::print_out("$key=$ENV{$key}\n");
	}
	return (1,undef);
}

1;
Commit	Line	Data
86530b38 AT	1	package Psh::Builtins::Fallback::Env;
	2
	3	=item * C<env>
	4
	5	Prints out the current environment
	6
	7	=cut
	8
	9	sub bi_env
	10	{
	11	foreach my $key (sort keys %ENV) {
	12	Psh::Util::print_out("$key=$ENV{$key}\n");
	13	}
	14	return (1,undef);
	15	}
	16
	17	1;