[Gmod-schema-cmts] schema/chado/lib/Chado Config.pm,1.1,1.2

[<ky...@us...>]

Update of /cvsroot/gmod/schema/chado/lib/Chado
In directory sc8-pr-cvs1:/tmp/cvs-serv23411

Modified Files:
	Config.pm 
Log Message:
Added default filename.


Index: Config.pm
===================================================================
RCS file: /cvsroot/gmod/schema/chado/lib/Chado/Config.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Config.pm	25 Nov 2003 23:51:35 -0000	1.1
--- Config.pm	3 Dec 2003 18:28:27 -0000	1.2
***************
*** 25,28 ****
--- 25,30 ----
  use XML::Simple;
  
+ use constant DEFAULT_FILENAME => catfile( $Bin, 'load', 'etc', 'load.conf' );
+ 
  # ---------------------------------------------------------
  =pod
***************
*** 70,75 ****
  
      if ( ! defined $self->{'filename'} && ! $arg ) {
!         my $file = catfile( $Bin, 'load', 'etc', 'load.conf' );
!         $arg = $file if -e $file;
      } 
  
--- 72,76 ----
  
      if ( ! defined $self->{'filename'} && ! $arg ) {
!         $arg = DEFAULT_FILENAME if -e DEFAULT_FILENAME;
      }