forgot perl doesnt have a boolean type

1 files 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);