Преглед на файлове

Stop checking for executable binaries on windows

It's apparently not as reliable as we thought, and it also doesn't
really seem to matter whether or not perl thinks the binary we found is
executable.
Daniel Gempesaw преди 10 години
родител
ревизия
c6f3044934
променени са 1 файла, в които са добавени 3 реда и са изтрити 1 реда
  1. 3 1
      lib/Selenium/CanStartBinary/FindBinary.pm

+ 3 - 1
lib/Selenium/CanStartBinary/FindBinary.pm

@@ -11,6 +11,8 @@ require Exporter;
 our @ISA = qw/Exporter/;
 our @EXPORT_OK = qw/coerce_simple_binary coerce_firefox_binary/;
 
+use constant IS_WIN => $^O eq 'MSWin32';
+
 sub coerce_simple_binary {
     my ($executable) = @_;
 
@@ -45,7 +47,7 @@ sub _validate_manual_binary {
     };
 
     if ( $abs_executable ) {
-        if ( -x $abs_executable ) {
+        if ( -x $abs_executable || IS_WIN ) {
             return $abs_executable;
         }
         else {