[Rt-commit] rt branch, 4.2/shredder-only-sqlite, updated. rt-4.2.3-91-g99071ff

[Alex Vandiver]

The branch, 4.2/shredder-only-sqlite has been updated
       via  99071ff80030151cc49416c41b6127521d98275f (commit)
      from  c0b42197e6c17d542efa654e3978e92d5d4499b3 (commit)

Summary of changes:
 lib/RT/Test.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

- Log -----------------------------------------------------------------
commit 99071ff80030151cc49416c41b6127521d98275f
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Thu May 15 13:21:24 2014 -0400

    Split the assignment to work around a bug in perl < 5.14
    
    Assigning to a hash from a list with duplicates produced garbage results
    in list context; this was fixed in perl.git in 45960564 (in 5.14.0).
    Switch to using two separate statements to work around this bug.

diff --git a/lib/RT/Test.pm b/lib/RT/Test.pm
index 1e57b55..c8129bf 100644
--- a/lib/RT/Test.pm
+++ b/lib/RT/Test.pm
@@ -117,7 +117,8 @@ BEGIN {
 
 sub import {
     my $class = shift;
-    my %args = %rttest_opt = @_;
+    my %args = @_;
+    %rttest_opt = %args;
 
     $rttest_opt{'nodb'} = $args{'nodb'} = 1 if $^C;
 

-----------------------------------------------------------------------