Changeset 2033 for trunk/gsdl/bin

Timestamp:

2001-02-21T09:13:36+13:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/bin/script/create_distributions.pl

@@ -1 +1 @@
 #!/usr/bin/perl -w
+
+
+BEGIN {
+    die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
+}
+
 
 # create_distributions.pl creates the following distributions from the gsdl
@@ -48 +55 @@
 # where the windows binaries live (including library.exe and server.exe)
 # this currently relies on being a directory ending in "windows"
-my $winbin = '/home/nzdl/gsdl/bin/windows';
+my $winbin = "$ENV{'GSDLHOME'}/bin/windows";
 
 # ditto for linux binaries (don't forget getpw)
-my $linuxbin = '/home/nzdl/gsdl/bin/linux';
+my $linuxbin = "$ENV{'GSDLHOME'}/bin/linux";
 
 my $cvsroot = '/home/nzdl/gsdl-src';
-
-BEGIN {
-    die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
-    unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
-}
 
 use parsargv;