diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-10-04 21:45:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-04 21:45:16 -0700 |
| commit | bac7bf84e9730a396813e97488e4405bf1cfad9b (patch) | |
| tree | 9eca6e53a19af182275b56bbd1a7d74ea6f62896 /dist/Locale-Maketext/lib | |
| parent | c30aeddd3b36c37c0ba6fe204d0eacb3edb28f0a (diff) | |
| download | perl-bac7bf84e9730a396813e97488e4405bf1cfad9b.tar.gz | |
Re-add a test deleted by the recent Locale::Maketext/$@ change
(and make it pass, too)
Diffstat (limited to 'dist/Locale-Maketext/lib')
| -rw-r--r-- | dist/Locale-Maketext/lib/Locale/Maketext.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/dist/Locale-Maketext/lib/Locale/Maketext.pm b/dist/Locale-Maketext/lib/Locale/Maketext.pm index 71d358824d..103df9ec2c 100644 --- a/dist/Locale-Maketext/lib/Locale/Maketext.pm +++ b/dist/Locale-Maketext/lib/Locale/Maketext.pm @@ -198,6 +198,9 @@ sub maketext { # If no failures, we'll re-set it back to what it was later. my $at = $@; + # Copy @_ case one of its elements is $@. + @_ = @_; + # Look up the value: my $value; |