X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;ds=sidebyside;f=Commands%2FQuotes.pm;h=7d18819eb61f038160163571bae522994256c499;hb=4c40fd39668614135ae9370092b5d17355bad15c;hp=c2625a8b12fa10491d93414bfa3c071a3d1080d2;hpb=fb91afb326b44a3e46fb92b060696aabc343e1cc;p=NDIRC.git

diff --git a/Commands/Quotes.pm b/Commands/Quotes.pm
index c2625a8..7d18819 100644
--- 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,8 +92,8 @@ sub findquote
 		$n++;
 	}
 	if ($match){
-		close $file;
-		$c->message("dcc send ".$c->nick, $file);
+		$file->flush;
+		$c->command(dcc => $c->nick => SEND => $file);
 	}else{
 		$c->reply("No quotes matching <b>$pattern.</b>");
 	}