Mercurial > pub > Impl

comparison Lib/IMPL/Resources.pm @ 378:2eed076cb944

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rewritten IMPL::Resources::Strings + tests
author cin
date Wed, 15 Jan 2014 17:20:54 +0400
parents 39842eedd923
children
comparison
equal deleted inserted replaced
377:a0d342ac9a36 378:2eed076cb944
18 sub InvokeInLocale { 18 sub InvokeInLocale {
19 my ($this,$locale,$code) = @_; 19 my ($this,$locale,$code) = @_;
20 20
21 local $CurrentLocale; 21 local $CurrentLocale;
22 $this->SetLocale($locale); 22 $this->SetLocale($locale);
23 eval { 23
24 &$code() 24 &$code()
25 if $code; 25 if $code;
26 };
27 die $@
28 if $@;
29 } 26 }
30 27
31 1; 28 1;