enable resample-session and synthesize-session to operate from anywhere without the user setting PERL5LIB etc etc.

git-svn-id: svn://localhost/ardour2/branches/2.0-ongoing@4237 d708f5d6-7413-0410-9779-e7cbd77b26cf

2 files changed, 4 insertions, 0 deletions

diff --git a/tools/resample_session.pl b/tools/resample_session.pl
index c6a390f480..eadc536985 100755
--- a/tools/resample_session.pl
+++ b/tools/resample_session.pl
@@ -9,6 +9,8 @@
 # The peakfiles and dead_sounds aren't copied. Only "identified" files are copied, instant.xml's
 # or .bak's aren't copied either.
 
+use FindBin '$Bin';
+use lib "$Bin";
 use XML::Parser::PerlSAX;
 use XML::Handler::XMLWriter;
 use IO::Handle;
diff --git a/tools/synthesize_sources.pl b/tools/synthesize_sources.pl
index 3123d0cb1f..54fb8eb60d 100755
--- a/tools/synthesize_sources.pl
+++ b/tools/synthesize_sources.pl
@@ -7,6 +7,8 @@
 # for each missing source file. The length of each file is determined
 # by how far regions using that source file go into the sample data.
 
+use FindBin '$Bin';
+use lib "$Bin";
 use XML::Parser::PerlSAX;
 use XML::Handler::XMLWriter;
 use IO::Handle;