From: Chris W. <la...@us...> - 2004-11-27 20:34:31
|
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 ); |