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:
parent
05d62c92b7
commit
4e2a8bab91
4 changed files with 14 additions and 16 deletions
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue