The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 03
MANIFEST 10
META.json 10
META.yml 3224
README 22
lib/Object/Event.pm 35
6 files changed (This is a version diff) 3934
@@ -1,5 +1,8 @@
 Revision history for Object-Event:
 
+1.23    Thu Aug  4 10:52:32 CEST 2011
+        - added small safety-check to unreg_cb.
+
 1.22    Thu Mar 10 17:17:58 CET 2011
         - fixed a bug where event methods were not registered correctly.
         - found a bug with using the guard to track cb registrations.
@@ -27,4 +27,3 @@ samples/simple_example
 samples/benchmark
 samples/mass_example
 META.yml                                 Module meta-data (added by MakeMaker)
-META.json                                Module meta-data (added by MakeMaker)
@@ -1 +0,0 @@
-{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.56","distribution_type":"module","version":"1.22","name":"Object-Event","author":["Robin Redeker <elmex@x-paste.de>"],"license":"perl","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"Test::More":0,"AnyEvent":3.5,"common::sense":0},"abstract":"A class that provides an event callback interface","configure_requires":{"ExtUtils::MakeMaker":0}}
@@ -1,32 +1,24 @@
-{
-   "no_index" : {
-      "directory" : [
-         "t",
-         "inc"
-      ]
-   },
-   "meta-spec" : {
-      "version" : 1.4,
-      "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
-   },
-   "generated_by" : "ExtUtils::MakeMaker version 6.56",
-   "distribution_type" : "module",
-   "version" : "1.22",
-   "name" : "Object-Event",
-   "author" : [
-      "Robin Redeker <elmex@x-paste.de>"
-   ],
-   "license" : "perl",
-   "build_requires" : {
-      "ExtUtils::MakeMaker" : 0
-   },
-   "requires" : {
-      "Test::More" : 0,
-      "AnyEvent" : 3.5,
-      "common::sense" : 0
-   },
-   "abstract" : "A class that provides an event callback interface",
-   "configure_requires" : {
-      "ExtUtils::MakeMaker" : 0
-   }
-}
+--- #YAML:1.0
+name:               Object-Event
+version:            1.23
+abstract:           A class that provides an event callback interface
+author:
+    - Robin Redeker <elmex@x-paste.de>
+license:            perl
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    AnyEvent:       3.5
+    common::sense:  0
+    Test::More:     0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.57_05
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4
@@ -2,7 +2,7 @@ NAME
     Object::Event - A class that provides an event callback interface
 
 VERSION
-    Version 1.22
+    Version 1.23
 
 SYNOPSIS
        package foo;
@@ -351,7 +351,7 @@ ACKNOWLEDGEMENTS
         the return value of the 'event' method and reporting bugs.
 
 COPYRIGHT & LICENSE
-    Copyright 2009 Robin Redeker, all rights reserved.
+    Copyright 2009-2011 Robin Redeker, all rights reserved.
 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.
@@ -13,11 +13,11 @@ Object::Event - A class that provides an event callback interface
 
 =head1 VERSION
 
-Version 1.22
+Version 1.23
 
 =cut
 
-our $VERSION = '1.22';
+our $VERSION = '1.23';
 
 =head1 SYNOPSIS
 
@@ -335,6 +335,8 @@ sub unreg_cb {
       return;
    }
 
+   return unless defined $cb; # some small safety against bad arguments
+
    my $evs = $self->{__oe_events};
 
    # $gen is neccessary for the times where we use the guard to remove
@@ -929,7 +931,7 @@ Thanks go to:
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009 Robin Redeker, all rights reserved.
+Copyright 2009-2011 Robin Redeker, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.