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

diff --git a/Commands/Quotes.pm b/Commands/Quotes.pm
index 3353eb6..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,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>");