Help message for findQuote

diff --git a/Quotes.pm b/Quotes.pm
index bebc9bbcb0f3509bb765e6c7b51eb34a10454e0b..97aa231603379b1d59a091ce575aae370b74b733 100644 (file)
--- a/Quotes.pm
+++ b/Quotes.pm
@@ -68,6 +68,10 @@ sub lastQuote {
 sub findQuote {
        my ($pattern,$type) = @_;
        my $matcher;
+       unless (defined $pattern){
+               $ND::server->command("notice $ND::nick $type query | findqre uses regexes as query, findquote a substring match. Both are case insensitive");
+               return;
+       }
        if ($type eq 'findqre'){
                if (defined (eval 'm/$pattern/ix')){
                        $matcher = 'm/$pattern/ix';