* use Clone::clone instead of Storable::dclone throughout OpenSLX in order to use the

  same cloning function everywhere
* added check for Clone module to Makefile


git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1784 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 5 insertions, 5 deletions

diff --git a/config-db/t/25-attributes.t b/config-db/t/25-attributes.t
index 32c1b0fb..9662684c 100644
--- a/config-db/t/25-attributes.t
+++ b/config-db/t/25-attributes.t
@@ -5,7 +5,7 @@ use warnings;
 
 use lib '/opt/openslx/lib';
 
-use Storable qw(dclone);
+use Clone qw(clone);
 
 # basic init
 use OpenSLX::ConfigDB qw(:support);
@@ -478,7 +478,7 @@ foreach my $key (sort keys %$shouldBeAttrs1) {
 }
 
 # finally we merge systems into clients and check the outcome of that
-my $fullMerge11 = dclone($mergedClient1);
+my $fullMerge11 = clone($mergedClient1);
 ok(
     mergeAttributes($fullMerge11, $mergedSystem1),
     'merging system 1 into client 1'
@@ -527,7 +527,7 @@ foreach my $key (sort keys %$shouldBeAttrs11) {
     );
 }
 
-my $fullMerge31 = dclone($mergedClient3);
+my $fullMerge31 = clone($mergedClient3);
 ok(
     mergeAttributes($fullMerge31, $mergedSystem1),
     'merging system 1 into client 3'
@@ -576,7 +576,7 @@ foreach my $key (sort keys %$shouldBeAttrs31) {
     );
 }
 
-my $fullMerge13 = dclone($mergedClient1);
+my $fullMerge13 = clone($mergedClient1);
 ok(
     mergeAttributes($fullMerge13, $mergedSystem3),
     'merging system 3 into client 1'
@@ -625,7 +625,7 @@ foreach my $key (sort keys %$shouldBeAttrs13) {
     );
 }
 
-my $fullMerge33 = dclone($mergedClient3);
+my $fullMerge33 = clone($mergedClient3);
 ok(
     mergeAttributes($fullMerge33, $mergedSystem3),
     'merging system 3 into client 3'