Przemyslaw Iskra [EMAIL PROTECTED] [02-12-2008 00:39]:
On Mon, Dec 01, 2008 at 11:46:04PM +0100, glen wrote:
+TODO: cook perlish which(), or hardcode
should be enough:
sub which($)
{
my $file = shift || return undef;
foreach my $dir ( split /:/, ( $ENV{PATH} || return undef
On Mon, Dec 01, 2008 at 11:46:04PM +0100, glen wrote:
+TODO: cook perlish which(), or hardcode
should be enough:
sub which($)
{
my $file = shift || return undef;
foreach my $dir ( split /:/, ( $ENV{PATH} || return undef ) ) {
my $path = $dir . '/' . $file;