(ask_choice) fix exit code if canceling when requested to select a choice

1 files changed, 1 insertions, 1 deletions

diff --git a/gurpmi2 b/gurpmi2
index 717e6aff..a7b1defb 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -174,7 +174,7 @@ sub ask_choice {
 	    foreach (@radios) { last if $_->get_active; ++$n }
 	}
 	$d->destroy;
-	exit(0) if $_[1] == 0; #- "cancel"
+	exit(1) if $_[1] == 0; #- "cancel"
     });
     $radios[0]->set_active(1);
     $d->set_default_response(1); # defaults to ok