From: Chris W. <la...@us...> - 2005-03-24 13:07:05
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/I18N In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28400 Modified Files: Initializer.pm Log Message: duh! iterating over a hash works better with 'each'... Index: Initializer.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/I18N/Initializer.pm,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** Initializer.pm 24 Mar 2005 05:00:37 -0000 1.16 --- Initializer.pm 24 Mar 2005 13:06:52 -0000 1.17 *************** *** 300,304 **** sub _assign_messages { my ( $class, $messages ) = @_; ! while ( my ( $key, $value ) = %{ $messages } ) { $Lexicon{ $key } = $value; } --- 300,304 ---- sub _assign_messages { my ( $class, $messages ) = @_; ! while ( my ( $key, $value ) = each %{ $messages } ) { $Lexicon{ $key } = $value; } |