This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Localize $@ in Locale::Maketext::maketext()
authorSteve Hay <SteveHay@planit.com>
Wed, 21 Sep 2005 16:19:03 +0000 (16:19 +0000)
committerSteve Hay <SteveHay@planit.com>
Wed, 21 Sep 2005 16:19:03 +0000 (16:19 +0000)
so that $lh->maketext("Error: [_1]\n", $@) works as expected

Also added a new test for this fix

p4raw-id: //depot/perl@25547

lib/Locale/Maketext.pm
lib/Locale/Maketext/t/30_local.t [new file with mode: 0644]

index 98c4450..f60d03d 100644 (file)
@@ -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.09_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;
diff --git a/lib/Locale/Maketext/t/30_local.t b/lib/Locale/Maketext/t/30_local.t
new file mode 100644 (file)
index 0000000..a3761dd
--- /dev/null
@@ -0,0 +1,30 @@
+
+require 5;
+use Test;
+BEGIN { plan tests => 4; }
+use Locale::Maketext;
+print "# Hi there...\n";
+ok 1;
+
+print "# --- Making sure that Perl globals are localized ---\n";
+
+# declare a class...
+{
+  package Woozle;
+  @ISA = ('Locale::Maketext');
+  %Lexicon = (
+    _AUTO => 1
+  );
+  keys %Lexicon; # dodges the 'used only once' warning
+}
+
+my $lh;
+print "# Basic sanity:\n";
+ok defined( $lh = Woozle->new() ) && ref($lh);
+
+print "# Make sure \$@ is localized...\n";
+$@ = 'foo';
+ok $lh && $lh->maketext('Eval error: [_1]', $@), "Eval error: foo";
+
+print "# Byebye!\n";
+ok 1;