oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Read preload.custom for extra lib paths in tests.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-09 09:52:34 -07:00
parent 9ec062d5bc
commit c189c6967b
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
t/lib/WebGUI/Test.pm
View file

@ -126,6 +126,24 @@ BEGIN {
push (@INC,$WEBGUI_LIB); push (@INC,$WEBGUI_LIB);
##Handle custom loaded library paths
warn $WEBGUI_ROOT;
my $customPreload = File::Spec->catdir( $WEBGUI_ROOT, 'sbin', 'preload.custom');
warn $customPreload;
if (-e $customPreload) {
open my $PRELOAD, '<', $customPreload or
croak "Unload to open $customPreload: $!\n";
LINE: while (my $line = <$PRELOAD>) {
$line =~ s/#.*//;
$line =~ s/^\s+//;
$line =~ s/\s+$//;
next LINE if !$line;
warn $line;
push @INC, $line;
}
close $PRELOAD;
}
# http://thread.gmane.org/gmane.comp.apache.apreq/3378 # http://thread.gmane.org/gmane.comp.apache.apreq/3378
# http://article.gmane.org/gmane.comp.apache.apreq/3388 # http://article.gmane.org/gmane.comp.apache.apreq/3388
if ( $^O eq 'darwin' && $Config::Config{osvers} lt '8.0.0' ) { if ( $^O eq 'darwin' && $Config::Config{osvers} lt '8.0.0' ) {