From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 12:26:16 +0000 Subject: re-sync after the big svn loss --- perl-install/install_steps_stdio.pm | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 perl-install/install_steps_stdio.pm (limited to 'perl-install/install_steps_stdio.pm') diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm deleted file mode 100644 index ac9408b3c..000000000 --- a/perl-install/install_steps_stdio.pm +++ /dev/null @@ -1,36 +0,0 @@ -package install_steps_stdio; # $Id$ - -use diagnostics; -use strict; -use vars qw(@ISA); - -@ISA = qw(install_steps_interactive interactive::stdio); - -use common; -use interactive::stdio; -use install_steps_interactive; -use lang; - -sub new($$) { - my ($type, $o) = @_; - - (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})); - $o->SUPER::enteringStep($step); -} -sub leavingStep { - my ($o, $step) = @_; - $o->SUPER::leavingStep($step); - print "--------\n"; -} - -1; -- cgit v1.2.1