- replace ... =~ 'foo' with ... =~ /foo/

- remove unneeded parentheses for things like ... if (...)

2 files changed, 3 insertions, 3 deletions

diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 836fc0030..1f1a49d0d 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -233,7 +233,7 @@ sub ask_fromW_real {
 	    Newt::PopWindow();
 	    return $v || &ask_fromW;
 	}
-    } until ($check->($common->{callbacks}{$canceled ? 'canceled' : 'complete'}));
+    } until $check->($common->{callbacks}{$canceled ? 'canceled' : 'complete'});
 
     $form->FormDestroy;
     Newt::PopWindow();
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index 737b966f7..1952cc0e5 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -29,7 +29,7 @@ sub good_choice {
 	defined $i and print N("Bad choice, try again\n");
 	print N("Your choice? (default %s) ", $def_s);
 	$i = readln();
-    } until (!$i || check_it($i, $max));
+    } until !$i || check_it($i, $max);
     $i;
 }
 
@@ -149,7 +149,7 @@ Your choice? ");
 	    defined $i and print N("Bad choice, try again\n");
 	    print N("Your choice? (default %s) ", $common->{focus_cancel} ? $common->{cancel} : $common->{ok});
 	    $i = readln() || ($common->{focus_cancel} ? "2" : "1");
-	} until (check_it($i, 9));
+	} until check_it($i, 9);
 	$i == 9 and goto ask_fromW_begin;
     } else {
 	$i = 1;