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

@ -18,7 +18,7 @@ use WebGUI::Asset;
use Test::More;
use Test::Deep;
use Clone qw/clone/;
use Storable qw/dclone/;
plan tests => 1;
@ -39,7 +39,7 @@ my $templateMock = Test::MockObject->new({});
$templateMock->set_isa('WebGUI::Asset::Template');
$templateMock->set_always('getId', $templateId);
my $templateVars;
$templateMock->mock('process', sub { $templateVars = clone($_[1]); } );
$templateMock->mock('process', sub { $templateVars = dclone($_[1]); } );
{
WebGUI::Test->mockAssetId($templateId, $templateMock);