From 39c48d617f828e8284bab29afce55737c45254aa Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 21 Aug 2008 13:59:47 +0000 Subject: Windows uninstaller: cancel does now cancel. git-svn-id: svn://tug.org/texlive/trunk@10391 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/uninstall-win32.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Master/texmf') diff --git a/Master/texmf/scripts/texlive/uninstall-win32.pl b/Master/texmf/scripts/texlive/uninstall-win32.pl index 7cd1bf5c979..8f14630f832 100644 --- a/Master/texmf/scripts/texlive/uninstall-win32.pl +++ b/Master/texmf/scripts/texlive/uninstall-win32.pl @@ -33,7 +33,7 @@ $f->pack(-padx => "10m", -pady => "5m"); my $ok = $f->Button(-text => "Ok", -command => sub { $mw->destroy; doit(); exit(0); }); my $cancel = $f->Button(-text => "Cancel", - -command => sub { $mw->destroy; exit(0); }); + -command => sub { $mw->destroy; exit(1); }); $ok->pack(-side => 'left', -padx => "3m"); $cancel->pack(-side => 'left' , -padx => "3m"); -- cgit v1.2.3