callback() now removes a callback if called with an undefined argument.
authorMike Taylor <mike@indexdata.com>
Wed, 27 Sep 2006 12:40:44 +0000 (12:40 +0000)
committerMike Taylor <mike@indexdata.com>
Wed, 27 Sep 2006 12:40:44 +0000 (12:40 +0000)
lib/ZOOM/Pod.pm

index df8e2ad..280f099 100644 (file)
@@ -1,4 +1,4 @@
-# $Id: Pod.pm,v 1.19 2006-09-26 08:52:21 mike Exp $
+# $Id: Pod.pm,v 1.20 2006-09-27 12:40:44 mike Exp $
 
 package ZOOM::Pod;
 
@@ -205,8 +205,7 @@ sub callback {
     my($event, $sub) = @_;
 
     my $old = $this->{callback}->{$event};
-    $this->{callback}->{$event} = $sub
-       if defined $sub;
+    $this->{callback}->{$event} = $sub;
 
     return $old;
 }