--- nfo/perl/libs/Data/Storage/Container.pm	2003/02/18 19:19:47	1.8
+++ nfo/perl/libs/Data/Storage/Container.pm	2003/06/06 03:26:24	1.10
@@ -1,8 +1,14 @@
 ################################################
 #
-#  $Id: Container.pm,v 1.8 2003/02/18 19:19:47 joko Exp $
+#  $Id: Container.pm,v 1.10 2003/06/06 03:26:24 joko Exp $
 #
 #  $Log: Container.pm,v $
+#  Revision 1.10  2003/06/06 03:26:24  joko
+#  + sub existsStorage
+#
+#  Revision 1.9  2003/03/27 15:31:08  joko
+#  fixes to modules regarding new namespace(s) below Data::Mungle::*
+#
 #  Revision 1.8  2003/02/18 19:19:47  joko
 #  + modified locator handling
 #
@@ -14,7 +20,7 @@
 #  + temporary fix: (FIXME) now connecting to storage on storagehandle-instantiation
 #
 #  Revision 1.5  2003/01/19 02:39:57  joko
-#  + moved 'deep_copy' from module 'libp' to module 'Data::Transform::Deep'
+#  + moved 'deep_copy' from module 'libp' to module 'Data.Transform.Deep'
 #  + preserved order for hashes '$self->{config}' and '$self->{locator}' by using Tie::IxHash
 #
 #  Revision 1.4  2002/12/04 07:38:07  jonen
@@ -52,8 +58,8 @@
 
 use Data::Storage;
 use Data::Storage::Locator;
-use Data::Transform::Deep qw( deep_copy );
-use Data::Compare::Struct qw( isEmpty );
+use Data::Mungle::Transform::Deep qw( deep_copy );
+use Data::Mungle::Compare::Struct qw( isEmpty );
 
 sub new {
   my $invocant = shift;
@@ -101,6 +107,12 @@
   $self->{storage}->{$name} = $storage;
 }
 
+sub existsStorage {
+  my $self = shift;
+  my $name = shift;
+  return exists $self->{storage}->{$name};
+}
+
 sub initLocator {
   my $self = shift;
   my $name = shift;
@@ -169,6 +181,8 @@
   my $self = shift;
   my $name = shift;
 
+  return if $self->existsStorage($name);
+
   my $locator = $self->getLocator($name);
   $logger->info( __PACKAGE__ . " is initializing storage declared by locator \"$name\"" );
 
@@ -262,3 +276,4 @@
 }
 
 1;
+__END__