ns/releases/3.02/source/curl/tests/stunnel.pm

12 lines
251 B
Perl
Raw Normal View History

sub checkstunnel {
my @paths=("/usr/sbin", "/usr/local/sbin", "/sbin", "/usr/bin",
"/usr/local/bin", split(":", $ENV{'PATH'}));
for(@paths) {
if( -x "$_/stunnel") {
return "$_/stunnel";
}
}
}
1;