[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/I18N Initializer.pm,1.12,1.13

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/I18N
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15212/I18N

Modified Files:
	Initializer.pm 
Log Message:
OIN-143: add some tracing to reading gettext messages


Index: Initializer.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/I18N/Initializer.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Initializer.pm	12 Mar 2005 18:37:18 -0000	1.12
--- Initializer.pm	13 Mar 2005 18:37:14 -0000	1.13
***************
*** 133,136 ****
--- 133,138 ----
                       "localization files. Please install it.";
          }
+         $log->is_info &&
+             $log->info( "Required Locale::Maketext::Lexicon::Gettext ok" );
      }
  }
***************
*** 205,211 ****
      open( GETTEXT, '<', $gettext_file )
          || oi_error "Failed to open gettext file: $!";
!     my @content = <GETTEXT>;
      close( GETTEXT );
!     my $msg = Locale::Maketext::Lexicon::Gettext->parse( @content );
      return %{ $msg }
  }
--- 207,218 ----
      open( GETTEXT, '<', $gettext_file )
          || oi_error "Failed to open gettext file: $!";
!     my $msg = Locale::Maketext::Lexicon::Gettext->parse( <GETTEXT> );
      close( GETTEXT );
!     if ( $log->is_debug ) {
!         $log->debug( "Read following messages from '$gettext_file': " );
!         while ( my ( $key, $value ) = each %{ $msg } ) {
!             $log->debug( "  '$key' = '$value'" );
!         }
!     }
      return %{ $msg }
  }