From 8f92840e9e50102c5aad4eaf5201afb632e4ec71 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Feb 2003 13:46:57 +0000
Subject: replace $l[$#l] with $l[-1]

---
 perl-install/install2.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/install2.pm')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 286f05c4a..2c1077e26 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -607,6 +607,10 @@ sub main {
 	    next MAIN unless $o->{steps}{$o->{step}}{reachable}; #- sanity check: avoid a step not reachable on error.
 	    redo MAIN;
 	}
+
+    my $_w = $o->wait_message('foo', "fsqfdlsk jfmqdslkf jqlsdmkf mlkqjd jlmkq\nqdsfqdsfqsdfqdsf\nqdsfqsdf");
+    sleep 10;
+
 	$o->{steps}{$o->{step}}{done} = 1;
 	$o->leavingStep($o->{step});
 
-- 
cgit v1.2.1