--- nfo/perl/libs/Data/Storage/Container.pm	2003/03/27 15:31:08	1.9
+++ nfo/perl/libs/Data/Storage/Container.pm	2003/06/06 03:26:24	1.10
@@ -1,8 +1,11 @@
 ################################################
 #
-#  $Id: Container.pm,v 1.9 2003/03/27 15:31:08 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::*
 #
@@ -104,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;
@@ -172,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\"" );
 
@@ -265,3 +276,4 @@
 }
 
 1;
+__END__