diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index a0133e4a1..ea2e0cb43 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,5 +1,6 @@ 7.10.28 - fixed: Clearing the caches for groups that don't exist, but have created group objects. + - fixed #12398: WebGUI still uses Clone (missed Spectre code) 7.10.27 - fixed #12379: userImport documentation error diff --git a/lib/Spectre/Workflow.pm b/lib/Spectre/Workflow.pm index d265d13ca..a9f7834a0 100644 --- a/lib/Spectre/Workflow.pm +++ b/lib/Spectre/Workflow.pm @@ -20,7 +20,7 @@ use HTTP::Cookies; use POE qw(Component::Client::HTTP); use Tie::IxHash; use JSON qw/ encode_json /; -use Clone qw(clone); +use Storable qw(dclone); #------------------------------------------------------------------- @@ -258,7 +258,7 @@ The id of the instance to retrieve. sub getInstance { my ($self, $instanceId) = @_; - return clone($self->{_queue}{$instanceId}); + return dclone($self->{_queue}{$instanceId}); } @@ -273,7 +273,7 @@ Returns the array of instances from the queue. sub getInstances { my ($self) = @_; my @instances = values %{$self->{_queue}}; - return @{clone(\@instances)}; + return @{dclone(\@instances)}; } #------------------------------------------------------------------- @@ -305,7 +305,7 @@ sub getJsonStatus { foreach my $instance ($self->getInstances) { my $site = $instance->{sitename}; unless (exists $output{$site}) { # must have an entry for each queue in each site - $output{$site} = clone \%queues; + $output{$site} = dclone \%queues; } my $queue = ucfirst($instance->{status}); push @{$output{$site}{$queue}}, $instance;