Clone stopped working in several tests in 5.14.2. Remove it in favor of Storable::dclone.

Clone handles being passed scalar data, but dclone does not.
This commit is contained in:
Colin Kuskie 2012-10-23 10:00:53 -07:00
parent 1b4f7c33fa
commit be37f12ab1
23 changed files with 70 additions and 49 deletions

View file

@ -27,7 +27,7 @@ use WebGUI::Macro;
use WebGUI::User;
use WebGUI::Shop::Cart;
use JSON;
use Clone qw/clone/;
use Storable qw/dclone/;
use Scalar::Util qw/blessed/;
=head1 NAME
@ -708,7 +708,7 @@ sub update {
$jsonOptions,
$self->paymentGatewayId
]);
my $storedProperties = clone $properties;
my $storedProperties = dclone $properties;
$options{ id $self } = $storedProperties;
return;