Added code for Eos + fix for DCC and Quotes

[NDIRC.git] / Commands / Quotes.pm

diff --git a/Commands/Quotes.pm b/Commands/Quotes.pm
index 3353eb6a112df54326dd6690d6aae155823d1fa6..7d18819eb61f038160163571bae522994256c499 100644 (file)
--- a/Commands/Quotes.pm
+++ b/Commands/Quotes.pm
@@ -68,6 +68,7 @@ sub findquote
 {
        my ($self,$c,$pattern) = @_;
        die 'ARGS' unless $pattern;
+
        my $matcher;
        if ($self->name eq 'findqre'){
                if (defined (eval 'm/$pattern/ix')){
@@ -91,7 +92,7 @@ sub findquote
                $n++;
        }
        if ($match){
-               close $file;
+               $file->flush;
                $c->command(dcc => $c->nick => SEND => $file);
        }else{
                $c->reply("No quotes matching <b>$pattern.</b>");