check that user is defined before regexp compare

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 08a3d7875da6b9941000b4531755fcb2a6f42d49..b3d47ed6acec5333c531437e159be8b68dcba666 100644 (file)
--- 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;