#  Due to liberal use of FindBin, ChimeraSlayer can't be run from a symlink.
#  So I'm hard-coding the location to get around this.
#  Patch added by Tim Booth, see changelog
--- a/ChimeraSlayer/ChimeraSlayer.pl
+++ b/ChimeraSlayer/ChimeraSlayer.pl
@@ -4,7 +4,9 @@
 use warnings;
 
 use Getopt::Long qw(:config no_ignore_case bundling);
-use FindBin;
+#use FindBin;
+#Hack needed because FindBin is braindead.
+BEGIN{ $FindBin::Bin = "/usr/lib/ChimeraSlayer" };
 
 use lib ("$FindBin::Bin/PerlLib");
 use Fasta_reader;
--- a/NAST-iEr/run_NAST-iEr.pl
+++ b/NAST-iEr/run_NAST-iEr.pl
@@ -5,7 +5,9 @@
 
 use Getopt::Long;
 
-use FindBin;
+#use FindBin;
+##Hack needed because FindBin is braindead.
+BEGIN{ $FindBin::Bin = "/usr/lib/NAST-iEr" };
 use lib ("$FindBin::Bin/PerlLib");
 use Fasta_reader;
 use CdbTools;
--- a/WigeoN/WigeoN.pl
+++ b/WigeoN/WigeoN.pl
@@ -5,7 +5,9 @@
 
 use Carp;
 use Getopt::Long qw(:config no_ignore_case bundling);
-use FindBin;
+#use FindBin;
+#Hack needed because FindBin is braindead.
+BEGIN{ $FindBin::Bin = "/usr/lib/WigeoN" };
 use POSIX;
 
 use lib ("$FindBin::Bin/PerlLib");
--- a/WigeoN/run_CM_to_WigeoN.pl
+++ b/WigeoN/run_CM_to_WigeoN.pl
@@ -4,9 +4,11 @@
 use warnings;
 
 use Getopt::Long qw(:config no_ignore_case bundling);
-use FindBin;
+#use FindBin;
+#Hack needed because FindBin is braindead.
+BEGIN{ $FindBin::Bin = "/usr/lib/WigeoN" };
 
-use lib ("$FindBin::Bin/../PerlLib");
+use lib ("$FindBin::Bin/PerlLib");
 use Fasta_reader;
 use CdbTools;
 
--- a/WigeoN/run_WigeoN.pl
+++ b/WigeoN/run_WigeoN.pl
@@ -5,7 +5,9 @@
 
 use Carp;
 use Getopt::Long qw(:config no_ignore_case bundling);
-use FindBin;
+#use FindBin;
+#Hack needed because FindBin is braindead.
+BEGIN{ $FindBin::Bin = "/usr/lib/WigeoN" };
 
 use lib ("$FindBin::Bin/PerlLib");
 use Fasta_reader;