*** empty log message ***

Milkbone.pm

@@ -270,7 +270,7 @@ sub register_hook
 sub deregister_hook
 {
 	my ($hook) = @_;
-	my ($file, $package, $line) = caller;
+	my ($package, $file, $line) = caller;
 	my @temp = @{$hooks{$hook}};
 
         print "$hook deregistered by $file\n";
@@ -278,7 +278,7 @@ sub deregister_hook
 	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) } @{$hooks{$hook}};
+	@temp = grep { ($_->{package} ne $package) } @{$hooks{$hook}};
 
 	@{$hooks{$hook}} = @temp;
 }

docs/VERSION.txt

@@ -1,6 +1,8 @@
 0.355
 --
 
+* deregister_hook no longer clears all handlers registered on a hookname (hehe - oops)
+* No more PAR packages - 50% decrease in loadup time + easier modification of source
 * Notification when your rate limit expires
 * Dropdown in AddBuddy works
 * New interface
@@ -14,10 +16,9 @@
 * Counterstrike now warns people automatically when they warns you
 * Monitor can be used to send messages to cell phones
 * Monitor now works (even with SMTP authentication)
-* Removed PAR usage
 * Plugin reloading works pretty darned well
 * Uses ~/.milkbone on Linux, AppData on Win2K, XP, etc. and profiles on Win98, etc.; needs testing on NT
-* Reloading of the core (Milkbone.pm) is now supported)
+* Reloading of the core (Milkbone.pm) is now supported
 * mb.conf is only saved if changed
 * Reloading of plugins works
 * Plugin list now updates properly

mos.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/Usr/bin/perl
 
 # ----------------------------------------------------------------------
 # Author(s)	:	Bill Atkins
@@ -10,7 +10,7 @@
 # License	:	it's on our TODO list...
 # -----------------------------------------------------------------------
 
-use 5.006;
+use 5.006;	# milkbone might work on 5.004 or lower; someone should find out...
 
 use warnings;
 use strict;
@@ -20,7 +20,7 @@ use lib '.';
 
 use Tk;
 
-$SIG{CHLD} = 'IGNORE';
+$SIG{CHLD} = 'IGNORE';		# this is so forked processes don't become zombies
 
 use Milkbone;
 

plugins/Tk-BList/Milkbone/BList.pm

@@ -299,7 +299,7 @@ sub init
 
 	$self->{away_button} = "Away Message";
 
-	$self->{away} = $self->Button(-command => [$self, "on_away"], -text => 'Away Message', -font => $self->Font(-family => 'arial', -weight => 'normal'), -border => 1);
+	$self->{away} = $self->Button(-command => [$self, "on_away"], -text => 'Away Message', -border => 1);
 	$self->{away}->pack(-side => 'bottom');
 
 	hook("tk_seticon", -wnd => $self);

plugins/Tk-Profile/Milkbone/Profile.pm

@@ -116,6 +116,8 @@ sub init
 
 	hook("tk_bindwheel", -window => $self->{text});
 
+        $self->geometry("650x430") if $^O =~ /Win32/;
+
 	$self->OnDestroy([\&on_destroy, $self]);
 	$self->bind("<Escape>", [$self, "destroy"]);
 	hook("tk_seticon", -wnd => $self);

plugins/XAMP.pl

@@ -35,7 +35,8 @@ if($^O =~ /Win32/)
 else
 {
     eval '
-        use Xmms::Remote;
+	package XAMP;
+	use Xmms::Remote;
 
 	my $rem = Xmms::Remote->new;