[Genex-cvs-commit] genex-server GenexUtils.pm,1.3,1.4

[<jas...@us...>]

Update of /cvsroot/genex/genex-server
In directory sc8-pr-cvs1:/tmp/cvs-serv22489

Modified Files:
	GenexUtils.pm 
Log Message:
added $CACHE_FILE_FILE_NAME

Index: GenexUtils.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/GenexUtils.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** GenexUtils.pm	20 Dec 2002 05:35:04 -0000	1.3
--- GenexUtils.pm	27 Apr 2003 01:01:53 -0000	1.4
***************
*** 2,6 ****
  require Exporter;
  
! use vars qw(@ISA @EXPORT_OK $CACHE_FILE_PATH $CACHE_FILE_NAME $ERR_FH $ERRORS $ERR_FILE);
  use strict;
  use Term::ReadKey;
--- 2,6 ----
  require Exporter;
  
! use vars qw(@ISA @EXPORT_OK $CACHE_FILE_PATH $CACHE_FILE_FILE_NAME $CACHE_FILE_NAME $ERR_FH $ERRORS $ERR_FILE);
  use strict;
  use Term::ReadKey;
***************
*** 9,13 ****
  $ERR_FILE = 'genex-errors.txt';
  $CACHE_FILE_PATH = 'Bio/Genex';
! $CACHE_FILE_NAME = "$CACHE_FILE_PATH/Config.pm";
  
  @ISA = qw(Exporter);
--- 9,14 ----
  $ERR_FILE = 'genex-errors.txt';
  $CACHE_FILE_PATH = 'Bio/Genex';
! $CACHE_FILE_FILE_NAME = 'Config.pm';
! $CACHE_FILE_NAME = "$CACHE_FILE_PATH/$CACHE_FILE_FILE_NAME";
  
  @ISA = qw(Exporter);
***************
*** 24,27 ****
--- 25,29 ----
  		$ERR_FILE
  		$CACHE_FILE_PATH
+ 		$CACHE_FILE_FILE_NAME
  		$CACHE_FILE_NAME
  	       );