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

package Psh::Builtins::Set;

require Psh::Util;

=item * C<set>

Return the list of the variables in the environment.  This cannot as yet be
used to set internal options (e.g. noclobber) but may be able to in future versions.

=cut

sub bi_set
{
	foreach (sort keys %ENV) {
		print "$_=$ENV{$_}\n";
	}

	return (1,undef);
}

1;
Commit	Line	Data
86530b38 AT	1	package Psh::Builtins::Set;
	2
	3	require Psh::Util;
	4
	5	=item * C<set>
	6
	7	Return the list of the variables in the environment. This cannot as yet be
	8	used to set internal options (e.g. noclobber) but may be able to in future versions.
	9
	10	=cut
	11
	12	sub bi_set
	13	{
	14	foreach (sort keys %ENV) {
	15	print "$_=$ENV{$_}\n";
	16	}
	17
	18	return (1,undef);
	19	}
	20
	21	1;