diff options
author | chatty | 2004-09-07 08:41:58 +0000 |
---|---|---|
committer | chatty | 2004-09-07 08:41:58 +0000 |
commit | 52439d8a1f3cc2c799e1a53bd09772eb219ef2da (patch) | |
tree | 7eb72d396e2d3716d28b0ed5fcda8b92a5205f39 /Ivy.pm | |
parent | 1bd1e6347c68c51a2134c774108fd126930c97b6 (diff) | |
download | ivy-perl-52439d8a1f3cc2c799e1a53bd09772eb219ef2da.zip ivy-perl-52439d8a1f3cc2c799e1a53bd09772eb219ef2da.tar.gz ivy-perl-52439d8a1f3cc2c799e1a53bd09772eb219ef2da.tar.bz2 ivy-perl-52439d8a1f3cc2c799e1a53bd09772eb219ef2da.tar.xz |
Avoid multiple calls to init
Diffstat (limited to 'Ivy.pm')
-rw-r--r-- | Ivy.pm | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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) = @_; |