- fix test

1 files changed, 1 insertions, 1 deletions

diff --git a/mdkonline b/mdkonline
index 9044f6ab..05cfdf87 100755
--- a/mdkonline
+++ b/mdkonline
@@ -199,7 +199,7 @@ sub checkErrors {
 }
 sub setEntryWithConf {
     my %t = getVarsFromSh($wideconf);
-    foreach (qw(login machine)) { $o->{$_} and $o->{$_}->set_text($t{uc($_)}) }
+    foreach (qw(login machine)) { $o->{$_}->get_text or $o->{$_}->set_text($t{uc($_)}) }
 }
 sub sendConfig {
     # When we arrive here, we're sure the login/passwd is correct