oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bump up the version for Clone, since the new version works with

Browse source 
perl 5.10.
Have SurveyJSON use it instead of dclone.
This commit is contained in:
Colin Kuskie 2009-03-30 19:47:27 +00:00
parent 05d62c92b7
commit 4e2a8bab91
4 changed files with 14 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Asset/Wobject/Survey/SurveyJSON.t
View file

@ -13,8 +13,8 @@ use Data::Dumper;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
use JSON;
#use Clone qw/clone/;
use Storable qw/dclone/;
use Clone qw/clone/;
#use Storable qw/dclone/;
#----------------------------------------------------------------------------
# Init
@ -2123,13 +2123,13 @@ sub buildSectionSkeleton {
my $sections = [];
my ($bareSection, $bareQuestion, $bareAnswer) = getBareSkeletons();
foreach my $questionSpec ( @{ $spec } ) {
my $section = dclone $bareSection;
my $section = clone $bareSection;
push @{ $sections }, $section;
foreach my $answers ( @{$questionSpec} ) {
my $question = dclone $bareQuestion;
my $question = clone $bareQuestion;
push @{ $section->{questions} }, $question;
while ($answers-- > 0) {
my $answer = dclone $bareAnswer;
my $answer = clone $bareAnswer;
push @{ $question->{answers} }, $answer;
}
}

4
t/lib/WebGUI/Test.pm
View file

@ -2,7 +2,7 @@ package WebGUI::Test;
use strict;
use warnings;
use Storable qw/dclone/;
use Clone qw/clone/;
=head1 LEGAL
@ -356,7 +356,7 @@ sub originalConfig {
my ($class, $param) = @_;
my $safeValue = my $value = $SESSION->config->get($param);
if (ref $value) {
$safeValue = dclone $value;
$safeValue = clone $value;
}
$originalConfig{$param} = $safeValue;
}