Avoid multiple calls to init

1 files changed, 5 insertions, 0 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 66dcdbd..a5a095d 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -298,6 +298,11 @@ use constant messWhenReady 	=> $constantIndexer++;
 #############################################################################
 sub init
 {
+  if (defined $fileEventFunc) {
+    print STDERR "Ivy warning: init has already been called\n";
+    return;
+  }
+
   my $class = shift if (@_ and $_[0] eq __PACKAGE__);
   my (%options) = @_;