diff options
author | Craig Lennox <blipvert@blipvertica.com> | 2010-11-27 17:29:49 -0500 |
---|---|---|
committer | Craig Lennox <blipvert@blipvertica.com> | 2010-11-28 10:51:53 -0500 |
commit | e4c6f5bcbe9edbf8091584fca9fbfe82e1175dac (patch) | |
tree | 49e601c7ea8f1c86bcfa4e8fc3d85c0e2f8a3477 | |
parent | 1ca7a35268afbe60b8ec2c4581d01dd8a45948ed (diff) |
check that user is defined before regexp compare
-rw-r--r-- | IkiWiki.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/IkiWiki.pm b/IkiWiki.pm index 08a3d7875..b3d47ed6a 100644 --- a/IkiWiki.pm +++ b/IkiWiki.pm @@ -1201,7 +1201,7 @@ sub userpage ($) { sub openiduser ($) { my $user=shift; - if ($user =~ m!^https?://! && + if (defined $user && $user =~ m!^https?://! && eval q{use Net::OpenID::VerifiedIdentity; 1} && !$@) { my $display; |