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

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

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;
}