Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23498/lib/OpenInteract2
Modified Files:
Config.pm
Log Message:
modify error messages a little
Index: Config.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Config.pm 13 Jun 2004 03:02:29 -0000 1.13
--- Config.pm 27 Nov 2004 20:34:15 -0000 1.14
***************
*** 38,42 ****
my ( $class, $filename ) = @_;
unless ( -f $filename ) {
! oi_error "Config file [$filename] does not exist";
}
}
--- 38,42 ----
my ( $class, $filename ) = @_;
unless ( -f $filename ) {
! oi_error "Config file '$filename' does not exist";
}
}
***************
*** 47,53 ****
$log ||= get_logger( LOG_CONFIG );
$log->is_debug &&
! $log->debug( "Config trying to read file [$filename]" );
open( CONF, '<', $filename )
! || oi_error "Cannot open [$filename] for reading: $!";
my @lines = <CONF>;
close( CONF );
--- 47,54 ----
$log ||= get_logger( LOG_CONFIG );
$log->is_debug &&
! $log->debug( "Config trying to read file '$filename'" );
! $class->is_file_valid( $filename );
open( CONF, '<', $filename )
! || oi_error "Cannot read config '$filename': $!";
my @lines = <CONF>;
close( CONF );
|
