From d80182fb067de110a09af88969ab9844e11ce21d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Oct 1999 22:59:18 +0000 Subject: no_comment --- perl-install/install_steps_stdio.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_stdio.pm') diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm index 1dbf94dae..a3c634b4d 100644 --- a/perl-install/install_steps_stdio.pm +++ b/perl-install/install_steps_stdio.pm @@ -16,12 +16,14 @@ use log; 1; -sub enteringStep($$$) { +sub enteringStep { my ($o, $step) = @_; print _("Entering step `%s'\n", $o->{steps}{$step}{text}); + $o->SUPER::enteringStep($step); } sub leavingStep { - my ($o) = @_; + my ($o, $step) = @_; + $o->SUPER::leavingStep($step); print "--------\n"; } -- cgit v1.2.1