view release on metacpan or  search on metacpan

lib/Wily/Connect.pm  view on Meta::CPAN

}

sub wily_fifo_name {
	if (exists $ENV{WILYFIFO}) {
		return $ENV{WILYFIFO};
	}
	if (not exists $ENV{DISPLAY}) {
		croak 'No $DISPLAY set';
	}
	my $tmp = $ENV{TMPDIR} || '/tmp';
	my $login = getlogin || getpwuid($<);
	return "$tmp/wily$login$ENV{DISPLAY}";
}

	

1;
__END__

=head1 NAME