Show
Ignore:
Timestamp:
11.01.2008 20:53:41 (12 years ago)
Author:
davidb
Message:

Modification to support extensions. BEGIN block now adds perllib/ perllib/cpan to @INC for each extension.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/bin/script/pluginfo.pl

    r12640 r14942  
    3737    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); 
    3838    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins"); 
     39 
     40    if (defined $ENV{'GSDLEXTS'}) { 
     41    my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 
     42    foreach my $e (@extensions) { 
     43        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e"; 
     44 
     45        unshift (@INC, "$ext_prefix/perllib"); 
     46        unshift (@INC, "$ext_prefix/perllib/cpan"); 
     47    } 
     48    } 
    3949} 
    4050