Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (15 sloc) 294 Bytes
use strict;
use warnings;
use File::Spec;
sub which($) {
my ($name) = @_;
for my $dir (File::Spec->path) {
my $path = File::Spec->catfile($dir, $name);
-x $path and return $path;
}
return;
}
sub uwsgi_cmd() {
$ENV{UWSGI_BIN_PATH} || which 'uwsgi';
}
1;
Jump to Line
Something went wrong with that request. Please try again.