Changeset 9

Timestamp:

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

Author:

sjboddie

Message:

Changed pathnames from lib to perllib

Location:

trunk/gsdl/bin/script

Files:

• gettext.pl (modified) (2 diffs)
• gsdlinfo.pl (modified) (1 diff)
• import.pl (modified) (1 diff)
• mkcol.pl (modified) (1 diff)

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";
     }

trunk/gsdl/bin/script/gsdlinfo.pl

@@ -6 +6 @@
 BEGIN {
     die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
-    unshift (@INC, "$ENV{'GSDLHOME'}/lib");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
 }
 

trunk/gsdl/bin/script/import.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");
 }
 

trunk/gsdl/bin/script/mkcol.pl

@@ -7 +7 @@
 BEGIN {
     die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
-    unshift (@INC, "$ENV{'GSDLHOME'}/lib");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
 }