From: Yuval Kogman <nothingmuch@woobling.org>
Date: Wed, 25 Jan 2006 13:42:14 +0000 (+0000)
Subject: rt.cpan.org bug 16518
X-Git-Tag: v0.02~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02dbbc739aaec1e36b31d63c4dd5ec2df9eebc83;hp=0fed016a9dac029577ec85b485a0446f7e6507c4;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git

rt.cpan.org bug 16518
---

diff --git a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm
index ad5d17c..78a4ab5 100644
--- a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm
+++ b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm
@@ -20,7 +20,7 @@ sub new {
 
 sub id {
     my $self = shift;
-    return $self->user->username;
+    return ( $self->user || return )->username;
 }
 
 sub supported_features {