[Bioperl-guts-l] [15411] bioperl-live/trunk/Bio/Root/Utilities.pm: don' t mistake soft links with actual exe

[Christopher John Fields]

Revision: 15411
Author:   cjfields
Date:     2009-01-20 22:10:00 -0500 (Tue, 20 Jan 2009)

Log Message:
-----------
don't mistake soft links with actual exe

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Root/Utilities.pm

Modified: bioperl-live/trunk/Bio/Root/Utilities.pm
===================================================================
--- bioperl-live/trunk/Bio/Root/Utilities.pm	2009-01-20 20:25:27 UTC (rev 15410)
+++ bioperl-live/trunk/Bio/Root/Utilities.pm	2009-01-21 03:10:00 UTC (rev 15411)
@@ -1229,7 +1229,7 @@
         undef $exe;
         my @exes;
         foreach my $d (@bindirs) {
-            push(@exes, "$d/$name") if -x "$d/$name";
+            push(@exes, "$d/$name") if -x "$d/$name" && !-l "$d/$name";
         }
         if (scalar @exes) {
             $exe = $exes[0];