From 52439d8a1f3cc2c799e1a53bd09772eb219ef2da Mon Sep 17 00:00:00 2001
From: chatty
Date: Tue, 7 Sep 2004 08:41:58 +0000
Subject: Avoid multiple calls to init

---
 Ivy.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Ivy.pm')

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) = @_;
 
-- 
cgit v1.1