Changeset 14942


Ignore:
Timestamp:
01/11/08 20:53:41 (13 years ago)
Author:
davidb
Message:

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

Location:
gsdl/trunk/bin/script
Files:
4 edited

Legend:

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

    r14925 r14942  
    3636    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins");
    3737    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
     38
     39    if (defined $ENV{'GSDLEXTS'}) {
     40    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
     41    foreach my $e (@extensions) {
     42        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
     43
     44        unshift (@INC, "$ext_prefix/perllib");
     45        unshift (@INC, "$ext_prefix/perllib/cpan");
     46    }
     47    }
    3848}
    3949
  • gsdl/trunk/bin/script/classinfo.pl

    r12640 r14942  
    3636    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
    3737    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
     38
     39    if (defined $ENV{'GSDLEXTS'}) {
     40    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
     41    foreach my $e (@extensions) {
     42        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
     43
     44        unshift (@INC, "$ext_prefix/perllib");
     45        unshift (@INC, "$ext_prefix/perllib/cpan");
     46    }
     47    }
    3848}
    3949
  • gsdl/trunk/bin/script/export.pl

    r14935 r14942  
    4040    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugouts");
    4141    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
     42
     43    if (defined $ENV{'GSDLEXTS'}) {
     44    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
     45    foreach my $e (@extensions) {
     46        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
     47
     48        unshift (@INC, "$ext_prefix/perllib");
     49        unshift (@INC, "$ext_prefix/perllib/cpan");
     50    }
     51    }
    4252}
    4353
  • 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
Note: See TracChangeset for help on using the changeset viewer.