From c44e4e4000844ba9d46f2c044031e100a6bcf148 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 17 Sep 2008 08:10:45 +0000
Subject: license: put focus back on Refuse button by default (fix titypo)

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index f18b287b6..7257223b7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -957,7 +957,7 @@ sub acceptLicense {
 
     return if $o->{useless_thing_accepted};
 
-    my $r = $::testing || 1 ? 'Accept' : 'Refuse';
+    my $r = $::testing ? 'Accept' : 'Refuse';
 
     $o->ask_from_({ title => N("License agreement"), 
 		    focus_first => 1,
-- 
cgit v1.2.1