From: Paul Davis <paul@linuxaudiosystems.com>
Date: Sun, 23 Nov 2008 15:21:38 +0000 (+0000)
Subject: enable resample-session and synthesize-session to operate from anywhere without the... 
X-Git-Tag: 2.8.16~995
X-Git-Url: https://git.carlh.net/gitweb/?a=commitdiff_plain;h=90d2ae23ad540bdb450886e12deea603e76db2bc;p=ardour.git

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
---

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;