Bug #34182 for Locale-Maketext: local $@ in "sub maketext" prevents perl-ish exeptions dispatch

The attached Perl script demonstrates the issue. When calling the maketext method from inside eval(), $@ is not set when it throws an exception. Output of the script: Locale::Maketext version 1.13 This works fine Trying via eval: eval failed $@ = Trying directly: Unbalanced ']', in: this is ] an error ========^ near there via TEST::en, as used at test.pl line 35 After some browsing in the code, I found that commenting Maketext.pm:184 (the 'local $@;' line in sub maketext) did the trick. The output of the script is then as expected: Locale::Maketext version 1.13 This works fine Trying via eval: eval failed $@ = Unbalanced ']', in: this is ] an error ========^ near there via TEST::en, as used at test.pl line 28 Trying directly: Unbalanced ']', in: this is ] an error ========^ near there via TEST::en, as used at test.pl line 35 Using perl v5.10.0 built for x86_64-linux-thread-multi.

#!/usr/bin/perl use strict; use warnings; { package TEST; use base 'Locale::Maketext'; } { package TEST::en; use base 'TEST'; our %Lexicon = ( _AUTO => 1, ); } package main; my $t = TEST->get_handle('en'); print "Locale::Maketext version $Locale::Maketext::VERSION\n"; print $t->maketext("This works fine\n"); print "\nTrying via eval:\n"; print eval { $t->maketext('this is ] an error'); "eval executed correctly\n"; } || "eval failed\n"; print "\$@ = $@\n"; print "\nTrying directly:\n"; $t->maketext('this is ] an error');