From eb38676d1158e86e678bb11df230338dd58d7c34 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Thu, 22 May 2008 20:03:40 +0000
Subject: * 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
---
 config-db/slxconfig-demuxer | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'config-db/slxconfig-demuxer')

diff --git a/config-db/slxconfig-demuxer b/config-db/slxconfig-demuxer
index a0c64ff9..9cff4360 100755
--- a/config-db/slxconfig-demuxer
+++ b/config-db/slxconfig-demuxer
@@ -29,6 +29,7 @@ slxconfig-demuxer
     Please use the --man option in order to read the full manual.
 ];
 
+use Clone qw(clone);
 use Config::General;
 use Digest::MD5 qw(md5_hex);
 use Fcntl qw(:DEFAULT :flock);
@@ -38,7 +39,6 @@ use File::Path;
 use List::Util qw(first);
 use Getopt::Long qw(:config pass_through);
 use Pod::Usage;
-use Storable qw(dclone);
 
 # add the lib-folder and the folder this script lives in to perl's search
 # path for modules:
@@ -522,7 +522,7 @@ sub makeInitRamFS
     my $vendorOS = $info->{'vendor-os'};
     my $kernelFile = basename(followLink($info->{'kernel-file'}));
 
-    my $attrs = dclone($info->{attrs} || {});
+    my $attrs = clone($info->{attrs} || {});
 
     my $params = {
         'attrs'          => $attrs,
-- 
cgit v1.2.3-55-g7522