# NOTE: Derived from lib/Env/PS1.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Env::PS1;

#line 320 "lib/Env/PS1.pm (autosplit into blib/lib/auto/Env/PS1/L.al)"
sub L { # How platform dependent is this ?
	use POSIX qw/ttyname/;
	no warnings;
	*L = sub {
		my $t = ttyname(*STDOUT);
		$t =~ s#.*/## if $_[1] eq 'l';
		return $t;
	};
	return &L;
}

# end of Env::PS1::L
1;
