diff options
Diffstat (limited to 'config-db/OpenSLX/ConfigDB.pm')
-rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 964206a1..c8ba7484 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -16,7 +16,7 @@ use warnings; our (@ISA, @EXPORT_OK, %EXPORT_TAGS, $VERSION); $VERSION = 1; # API-version -use Storable qw(dclone); +use Clone qw(clone); use Exporter; @ISA = qw(Exporter); @@ -2628,7 +2628,7 @@ sub aggregatedSystemFileInfoFor my $self = shift; my $system = shift; - my $info = dclone($system); + my $info = clone($system); my $export = $self->fetchExportByID($system->{export_id}); if (!defined $export) { @@ -2953,7 +2953,7 @@ sub _cloneAndUnhingeAttrs my (@valRows, @attrValRows); foreach my $inValRow (@$inValRows) { push @attrValRows, $inValRow->{attrs}; - my $valRow = dclone($inValRow); + my $valRow = clone($inValRow); delete $valRow->{attrs}; push @valRows, $valRow; } |