(do_install_3) fix exit code if not refusing to insert the proper media

2 files changed, 2 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index a2441874..d79f4f28 100644
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,5 @@
 - gurpmi
+  o fix exit code if not refusing to insert the proper media
   o notify callers when installation is canceled (#40358)
 
 Version 6.3 - 14 August 2008, Thierry Vignaud
diff --git a/gurpmi2 b/gurpmi2
index e49d0578..52994fb8 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -284,7 +284,7 @@ sub do_install_3 () {
                                          );
             my $response = $w->run;
             $w->destroy;
-            exit 0 if $response eq 'cancel';
+            exit 1 if $response eq 'cancel';
             1;
         },
         trans_log => sub {