summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-16 14:03:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-16 14:03:47 +0000
commit9f8734e27c9a88137a2933970b7a5962e37789da (patch)
tree973e9a5518a38231812f2af8047ca93be420a083 /perl-install/install_steps.pm
parente4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999 (diff)
downloaddrakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.gz
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.bz2
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.xz
drakx-9f8734e27c9a88137a2933970b7a5962e37789da.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 779a3bbc4..b64952370 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -22,12 +22,23 @@ my $o;
1;
+sub warn {}
+
sub new($$) {
my ($type, $o_) = @_;
$o = bless $o_, ref $type || $type;
}
+sub enteringStep($$) {
+ my ($o, $step) = @_;
+ log::l("starting step `$step'");
+}
+sub leavingStep($$) {
+ my ($o, $step) = @_;
+ log::l("step `$step' finished");
+}
+
sub chooseLanguage($) {
# eval { run_program::run('loadkeys', "/tmp/$o->{default}->{lang}) }; $@ and log::l("loadkeys failed");
$o->{default}->{lang};