Changeset 14942 for gsdl/trunk/bin/script/classinfo.pl

Timestamp:

2008-01-11T20:53:41+13:00 (16 years ago)

Author:

davidb

Message:

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

File:

• gsdl/trunk/bin/script/classinfo.pl (modified) (1 diff)

gsdl/trunk/bin/script/classinfo.pl

@@ -36 +36 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify");
+
+    if (defined $ENV{'GSDLEXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {
+        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
+
+        unshift (@INC, "$ext_prefix/perllib");
+        unshift (@INC, "$ext_prefix/perllib/cpan");
+    }
+    }
 }