[Rt-commit] r5034 - in Locale-Maketext-Lexicon: lib/Locale/Maketext

[ruz at bestpractical.com]

Author: ruz
Date: Sun Apr 16 22:05:18 2006
New Revision: 5034

Modified:
   Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm
   Locale-Maketext-Lexicon/t/6-gettext.t

Log:
* correct checking for not existant files
* simple test

Modified: Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm
==============================================================================
--- Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm	(original)
+++ Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm	Sun Apr 16 22:05:18 2006
@@ -288,7 +288,7 @@
             my @content = eval {
                 $class->lexicon_get($src, scalar caller, $lang);
             };
-            next if $@ and $@ eq 'next';
+            next if $@ and "$@" =~ /^next\b/o;
             die $@ if $@;
 
             no strict 'refs';

Modified: Locale-Maketext-Lexicon/t/6-gettext.t
==============================================================================
--- Locale-Maketext-Lexicon/t/6-gettext.t	(original)
+++ Locale-Maketext-Lexicon/t/6-gettext.t	Sun Apr 16 22:05:18 2006
@@ -21,6 +21,7 @@
 	    'Msgcat'	=> 't/gencat.m',
 	    'Gettext'   => 't/messages.po',
 	],
+	ru	=> ['Gettext'	=> 't/notexist.po'],
         _style => 'gettext',
     },
 );
@@ -29,6 +30,7 @@
 
 Locale::Maketext::Lexicon->import({
     de_de => ['Gettext'	=> \*::DATA],
+    ru    => ['Gettext'	=> 't/notexist.po'],
     _use_fuzzy => 1,
 });