1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
# 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;
|
