diff options
| author | Oliver Tappe | 2008-05-22 22:03:40 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2008-05-22 22:03:40 +0200 |
| commit | eb38676d1158e86e678bb11df230338dd58d7c34 (patch) | |
| tree | e227b3634e6276bf1f888588702d833adc72c064 /config-db/OpenSLX/ConfigDB.pm | |
| parent | * attributes set via slxconfig are now being checked not only against the res... (diff) | |
| download | core-eb38676d1158e86e678bb11df230338dd58d7c34.tar.gz core-eb38676d1158e86e678bb11df230338dd58d7c34.tar.xz core-eb38676d1158e86e678bb11df230338dd58d7c34.zip | |
* use Clone::clone instead of Storable::dclone throughout OpenSLX in order to use the
same cloning function everywhere
* added check for Clone module to Makefile
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1784 95ad53e4-c205-0410-b2fa-d234c58c8868
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; } |