diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-16 14:03:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-16 14:03:47 +0000 |
| commit | 9f8734e27c9a88137a2933970b7a5962e37789da (patch) | |
| tree | 973e9a5518a38231812f2af8047ca93be420a083 /perl-install/install_steps.pm | |
| parent | e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999 (diff) | |
| download | drakx-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.pm | 11 |
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}; |