Use FindBin to locate library module and conf files.

3 files changed, 11 insertions, 2 deletions

diff --git a/do_build.pl b/do_build.pl
index 057d1e5..14c6553 100755
--- a/do_build.pl
+++ b/do_build.pl
@@ -2,6 +2,9 @@
 
 use warnings;
 use strict;
+
+use FindBin;
+use lib "$FindBin::Bin";
 use do_common;
 
 #
@@ -60,7 +63,7 @@ system("mkdir -p $prefix/var/log") and do { print FH "Failed to make var/log dir
 ###
 ##
 #
-my $ref = &read_config($basedir, "do_build.conf", $type);
+my $ref = &read_config($basedir, "$FindBin::Bin/do_build.conf", $type);
 
 for (@$ref) {
     my ($dir, $args) = @$_;
diff --git a/do_fetch.pl b/do_fetch.pl
index f5a25c3..cd737b4 100755
--- a/do_fetch.pl
+++ b/do_fetch.pl
@@ -2,6 +2,9 @@
 
 use warnings;
 use strict;
+
+use FindBin;
+use lib "$FindBin::Bin";
 use do_common;
 
 $| = 1;
diff --git a/do_update.pl b/do_update.pl
index d877a4b..7dc0099 100755
--- a/do_update.pl
+++ b/do_update.pl
@@ -2,6 +2,9 @@
 
 use warnings;
 use strict;
+
+use FindBin;
+use lib "$FindBin::Bin";
 use do_common;
 
 my $type = shift @ARGV;
@@ -9,7 +12,7 @@ die "Bad arguments" unless defined($type);
 
 chdir($basedir) or die "Failed to change directory to $basedir: $!\n";
 
-my $ref = &read_config($basedir, "do_update.conf", $type);
+my $ref = &read_config($basedir, "$FindBin::Bin/do_update.conf", $type);
 
 for (@$ref) {
     my ($dir, $args) = @$_;