*** empty log message ***

diff --git a/lib/Keitairc/Log.pm b/lib/Keitairc/Log.pm
index fde8af3..bd21e63 100644 (file)
--- a/lib/Keitairc/Log.pm
+++ b/lib/Keitairc/Log.pm
@@ -1,6 +1,6 @@
 # -*- mode: perl; coding: utf-8 -*-
 # Keitairc::Log
-# $Id: Log.pm,v 1.1 2008-08-02 15:02:16 morimoto Exp $
+# $Id: Log.pm,v 1.2 2008-08-02 15:45:05 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/Log.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -23,12 +23,10 @@ sub log_die{
 no strict;
 sub log_debug{
        my $m = shift;
-       if(defined $cf){
-               unless($cf->debug()){
-                       return;
-               }
+       return unless defined $cf;
+       if($cf->debug()){
+               warn "keitairc(debug): $m\n";
        }
-       warn "keitairc(debug): $m\n";
 }
 
 1;

diff --git a/lib/Keitairc/SessionManager.pm b/lib/Keitairc/SessionManager.pm
index 74a6325..124e550 100644 (file)
--- a/lib/Keitairc/SessionManager.pm
+++ b/lib/Keitairc/SessionManager.pm
@@ -1,6 +1,6 @@
 # -*- mode: perl; coding: utf-8 -*-
 # Keitairc::SessionManager
-# $Id: SessionManager.pm,v 1.7 2008-08-02 15:02:16 morimoto Exp $
+# $Id: SessionManager.pm,v 1.8 2008-08-02 15:40:27 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/SessionManager.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -50,6 +50,8 @@ sub verify{
                        return $me->refresh($s->{id}, $user_agent);
                }
        }
+
+       undef;
 }
 
 ################################################################