Ignore:
Timestamp:
2008-01-11T20:53:41+13:00 (14 years ago)
Author:
davidb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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
Note: See TracChangeset for help on using the changeset viewer.