1 files changed, 5 insertions, 9 deletions
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index 223c2f2b5..ac9408b3c 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -17,6 +17,11 @@ sub new($$) {
     (bless {}, ref($type) || $type)->SUPER::new($o);
 }
 
+sub charsetChanged {
+    my ($o) = @_;
+    lang::load_console_font($o->{locale});
+}
+
 sub enteringStep {
     my ($o, $step) = @_;
     print N("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
@@ -28,13 +33,4 @@ sub leavingStep {
     print "--------\n";
 }
 
-#-######################################################################################
-#- Steps Functions
-#-######################################################################################
-sub selectLanguage {
-    my ($o, $first_time) = @_;
-    $o->SUPER::selectLanguage($first_time);
-    lang::load_console_font($o->{locale});
-}
-
 1;