--- nfo/perl/libs/Data/Transfer/Sync/StorageInterface.pm 2003/02/20 20:24:33 1.5 +++ nfo/perl/libs/Data/Transfer/Sync/StorageInterface.pm 2003/03/27 15:31:16 1.7 @@ -1,4 +1,4 @@ -## $Id: StorageInterface.pm,v 1.5 2003/02/20 20:24:33 joko Exp $ +## $Id: StorageInterface.pm,v 1.7 2003/03/27 15:31:16 joko Exp $ ## ## Copyright (c) 2002 Andreas Motl ## @@ -6,6 +6,12 @@ ## ## ---------------------------------------------------------------------------------------- ## $Log: StorageInterface.pm,v $ +## Revision 1.7 2003/03/27 15:31:16 joko +## fixes to modules regarding new namespace(s) below Data::Mungle::* +## +## Revision 1.6 2003/02/21 01:47:53 joko +## renamed core function +## ## Revision 1.5 2003/02/20 20:24:33 joko ## + additional pre-flight checks ## @@ -43,7 +49,7 @@ use Data::Dumper; use Hash::Merge qw( merge ); use libdb qw( hash2Sql ); -use Data::Transform::Deep qw( hash2object ); +use Data::Mungle::Transform::Deep qw( merge_to ); # get logger instance @@ -471,7 +477,7 @@ # mix in (merge) values ... # TODO: use Hash::Merge here? benchmark! # no! we'd need a Object::Merge here! it's *...2object* - hash2object($object, $map); + merge_to($object, $map); # trace #print Dumper($object); @@ -503,7 +509,7 @@ # mix in values #print Dumper($object); # TODO: use Hash::Merge here??? - hash2object($object, $map); + merge_to($object, $map); #print Dumper($object); #exit;