Logger.pm: Missing S_001 return value

bingos · Feb 14, 2008 · 80751f3 · 80751f3
1 parent 9a6da98
commit 80751f3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -7,7 +7,8 @@ Revision history for Perl extension POE::Component::IRC.
     - NickServID: Tweak it a little (Hinrik)
     - Add optional Test::Perl::Critic test to detect risky code.
       Currently 466 violations in about 16k lines of code, whee! (Hinrik)
-		- ISupport.pm: Fix bug in CHANLIMIT handling (Hinrik)
+    - ISupport.pm: Fix bug in CHANLIMIT handling (Hinrik)
+    - Logger.pm: Missing S_001 return value (Hinrik)
 
 5.62  Thu Feb  7 16:31:03 GMT 2008
     - IRC.pm: Document the nickserv command (Hinrik)

diff --git a/lib/POE/Component/IRC/Plugin/Logger.pm b/lib/POE/Component/IRC/Plugin/Logger.pm
@@ -118,6 +118,7 @@ sub PCI_unregister {
 sub S_001 {
     my ($self, $irc) = splice @_, 0, 2;
     $self->{logging} = { };
+		return PCI_EAT_NONE;
 }
 
 sub S_332 {