Changeset 14973

Timestamp:

2008-02-12T15:40:39+13:00 (16 years ago)

Author:

davidb

Message:

Position of require "/perllib/util.pm"; reloated to assist with earlier call to &util::filename_cat

File:

• gsdl/trunk/cgi-bin/gsdlCGI.pm (modified) (2 diffs)

gsdl/trunk/cgi-bin/gsdlCGI.pm

@@ -193 +193 @@
     my $gsdlhome = $self->get_config_info("gsdlhome");
 
-    require "$gsdlhome/perllib/util.pm";
-
     $gsdlhome =~ s/(\/|\\)$//; # remove trailing slash
 
@@ -230 +228 @@
     $ENV{'GSDLHOME'} = $gsdlhome;
     $ENV{'GSDLOS'} = $gsdlos;
+
+    require "$gsdlhome/perllib/util.pm";
 
     my $gsdl_bin_script = &util::filename_cat($gsdlhome,"bin","script");