small cleanup

1 files changed, 13 insertions, 0 deletions

diff --git a/mysql-test/lib/My/Test.pm b/mysql-test/lib/My/Test.pm
index 7307d1ad2ff..735e8db5485 100644
--- a/mysql-test/lib/My/Test.pm
+++ b/mysql-test/lib/My/Test.pm
@@ -35,6 +35,19 @@ sub new {
   return $self;
 }
 
+sub copy {
+  my $self= shift;
+  my $copy= My::Test->new();
+  while (my ($key, $value) = each(%$self)) {
+    if (ref $value eq "ARRAY") {
+      push(@{$copy->{$key}}, @$value);
+    } else {
+      $copy->{$key}= $value;
+    }
+  }
+  $copy;
+}
+
 sub fullname {
   my ($self)= @_;
   $self->{name} . (defined $self->{combinations}