From ff2f48915afdba40b87e112ce432528a6ed86bc6 Mon Sep 17 00:00:00 2001
From: Jules Laplace <jules@okfoc.us>
Date: Fri, 16 Jan 2015 09:57:38 -0500
Subject: forgot perl doesnt have a boolean type

---
 xdcc.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/xdcc.pl b/xdcc.pl
index 247d9d1..be7bc2e 100755
--- a/xdcc.pl
+++ b/xdcc.pl
@@ -22,7 +22,7 @@ my @queue;
 my $queue_max = 10;
 
 my $irssidir = Irssi::get_irssi_dir();
-my $sending = false;
+my $sending = 0;
 
 my $help = <<EOF;
 
@@ -170,7 +170,7 @@ sub xdcc_send {
 	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_sending_file', $id, $nick, $file->{fn});
 	$server->command("/DCC send $nick $path");
 	xdcc_message( $server, $nick, 'sending_file', $file->{fn} )
-	$sending = true;
+	$sending = 1;
 }
 
 # client stuff
@@ -265,7 +265,7 @@ sub dcc_created {
 }
 sub dcc_destroyed {
 	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_log', 'dcc destroyed');
-	$sending = false;
+	$sending = 0;
 	if (@queue == 0) { return; }
 	my $request = shift @queue;
 	xdcc_send($request);
-- 
cgit v1.2.3-70-g09d2