diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-09-09 17:28:14 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-09-09 17:28:14 -0700 |
| commit | e0dd3887a47d291f804d20fb5a47bf1587663160 (patch) | |
| tree | e22eea80ff8998228f58df7a8e976d2d1ee93538 /FS-Test/bin/freeside-test-fetch | |
| parent | aaecb642260b19488b469e57e5b1a11abcd87620 (diff) | |
| parent | 75d07cc54b2e54e50bff80203c6065b215ee5d1c (diff) | |
no need for scalar
Diffstat (limited to 'FS-Test/bin/freeside-test-fetch')
| -rwxr-xr-x | FS-Test/bin/freeside-test-fetch | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/FS-Test/bin/freeside-test-fetch b/FS-Test/bin/freeside-test-fetch index ccc8528ff..953005704 100755 --- a/FS-Test/bin/freeside-test-fetch +++ b/FS-Test/bin/freeside-test-fetch @@ -1,8 +1,14 @@ #!/usr/bin/perl use strict; -use FS::Test; use Getopt::Std; +use File::Spec; + +my @dirs = File::Spec->splitdir(File::Spec->rel2abs(__FILE__)); +splice @dirs, -2; # bin/freeside-test-run +push @INC, File::Spec->catdir( @dirs, 'lib' ); +eval "use FS::Test;"; +die $@ if $@; my %opt; |