From 086168715e8b8becf0935f9b138f75c284a0365a Mon Sep 17 00:00:00 2001
From: quester <quester.pm@gmail.com>
Date: Sat, 12 Jun 2010 21:56:18 -1000
Subject: [PATCH] Pass False to MAIN for --/bool, not "True does False"

---
 src/core/MAIN.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/core/MAIN.pm b/src/core/MAIN.pm
index 4bdd1ca..7a6fcfc 100644
--- a/src/core/MAIN.pm
+++ b/src/core/MAIN.pm
@@ -30,7 +30,8 @@ our sub MAIN_HELPER() {
                     @positional-arguments.push: @args;
                     last;
                 } elsif %named{$arg} ~~ Bool {
-                    %named-arguments{$arg}=True;
+                    %named-arguments{$arg}=not $negate;
+                    $negate='';
                 } elsif %named{$arg} ~~ Array || ($passed_value.match( /\=/ ) &&  %named{$arg.split('=', 2)[0]} ~~ Array ) {
                     if $passed_value.match( /\=/ ) {
                         my ($name , $value) = $arg.split('=', 2);
-- 
1.7.0.4