1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 6364228f7..3304c3dc2 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -80,7 +80,7 @@ do {
 	common::sync();
     };
     $again = $@; #- grrr... $@ is localized in code block :-(
-} while ($again);
+} while $again;
 fs::mount($dev, $mountdir, 'vfat', 0);
 my $cfgfile = "$mountdir/auto_inst.cfg";
 eval(cat_($cfgfile));