New data for Unicode on older versions, thanks to Nicholas

[p5sagit/p5-mst-13.2.git] / lib / Locale / Maketext.pm

diff --git a/lib/Locale/Maketext.pm b/lib/Locale/Maketext.pm
index 98c4450..53fd48d 100644 (file)
--- a/lib/Locale/Maketext.pm
+++ b/lib/Locale/Maketext.pm
@@ -14,7 +14,7 @@ use I18N::LangTags 0.30 ();
 BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
  # define the constant 'DEBUG' at compile-time
 
-$VERSION = "1.09";
+$VERSION = "1.10_01";
 @ISA = ();
 
 $MATCH_SUPERS = 1;
@@ -175,6 +175,9 @@ sub maketext {
 
   my($handle, $phrase) = splice(@_,0,2);
 
+  # Don't interefere with $@ in case that's being interpolated into the msg.
+  local $@;
+
   # Look up the value:
 
   my $value;