Changeset 9 for trunk/gsdl/bin/script/gettext.pl

Timestamp:

1998-11-17T14:25:28+13:00 (25 years ago)

Author:

sjboddie

Message:

Changed pathnames from lib to perllib

File:

• trunk/gsdl/bin/script/gettext.pl (modified) (2 diffs)

trunk/gsdl/bin/script/gettext.pl

@@ -6 +6 @@
     die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
     die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
-    unshift (@INC, "$ENV{'GSDLHOME'}/lib");
-    unshift (@INC, "$ENV{'GSDLHOME'}/lib/plugins");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins");
 }
 
@@ -61 +61 @@
     # otherwise, use the mg buildproc
     my ($buildprocdir, $buildproctype);
-    if (-e "$ENV{'GSDLHOME'}/collect/$collection/lib/${collection}buildproc.pm") {
-    $buildprocdir = "$ENV{'GSDLHOME'}/collect/$collection/lib";
+    if (-e "$ENV{'GSDLHOME'}/collect/$collection/perllib/${collection}buildproc.pm") {
+    $buildprocdir = "$ENV{'GSDLHOME'}/collect/$collection/perllib";
     $buildproctype = "${collection}buildproc";
     } else {
-    $buildprocdir = "$ENV{'GSDLHOME'}/lib";
+    $buildprocdir = "$ENV{'GSDLHOME'}/perllib";
     $buildproctype = "mgbuildproc";
     }