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/slxconfig-demuxer | |
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/slxconfig-demuxer')
-rwxr-xr-x | config-db/slxconfig-demuxer | 4 |
1 files changed, 2 insertions, 2 deletions
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, |