From d07fdcc3cbffc0108db976c26a2c60cc504a1327 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Tue, 15 Jul 2003 02:55:44 +0000
Subject: [PATCH] Lots of changes to the hook and plugin code

---
 Milkbone.pm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/Milkbone.pm b/Milkbone.pm
index 4e6c2fc..6fd1d37 100644
--- a/Milkbone.pm
+++ b/Milkbone.pm
@@ -1,12 +1,10 @@
-# -----------------------------------------------------------------------------
-# Author(s)	:	Bill Atkins and Eric Thul
-# Title		:	MOS core tools
+# ----------------------------------------------------------------------
+# Author(s)	:	Bill Atkins
+# Title		:	MOS core
 # Date		:	12.21.02
 # Desc		:	the hamster that keep MOS going
-# QoTP		:	got milkbone tools?
-# Notes		:	for more information see the plugin documentation
 # License	:	under the same terms as mos.pl
-# -----------------------------------------------------------------------------
+# ----------------------------------------------------------------------
 
 package Milkbone;
 
@@ -203,9 +201,9 @@ sub unload_plugin
         {
            if(/^plugins\/$plugin/)
            {
-               s/plugins\///;
-               s/\/$plugin\///;
-               delete $INC{$_};
+             s/plugins\///;
+             s/\/$plugin\///;
+             delete $INC{$_};
            } 
         }
 }
@@ -245,7 +243,7 @@ sub hook
 		%ARGS = %args;
 
 		$ARGS{$_} = $hook->{args}->{$_} for %{$hook->{args}};
-	eval { $res = $hook->call; };
+                eval { $res = $hook->call; };
 		print longmess($! . $@) if $@;
 	}
 
@@ -267,6 +265,7 @@ sub register_hook
 	my $entry = new Milkbone::HookEntry($hook, $coderef, $args, $package);
 
 	push @{$hooks{$hook}}, $entry; 
+        print "$hook registered by $file\n";
 }
 
 sub deregister_hook
@@ -275,10 +274,12 @@ sub deregister_hook
 	my ($file, $package, $line) = caller;
 	my @temp = @{$hooks{$hook}};
 
+        print "$hook deregistered by $file\n";
+
 	die "Required hook missing" if !exists($hooks{$hook}) and $hook eq "tick";
 	warn "Unregistered hook deleted: $hook" if !exists($hooks{$hook});
 
-	@temp = grep { ($_->{package} ne $package) && ($_->{hook_name} ne $hook) } @temp;
+	@temp = grep { ($_->{package} ne $package) && ($_->{hook_name} ne $hook) } @{$hooks{$hook}};
 
 	@{$hooks{$hook}} = @temp;
 }