From 160b5383a5e306e6beef2212fc76f8e6ede16090 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Fri, 10 Aug 2001 01:45:43 +0000
Subject: corrected vnew usage (thx gc)

---
 perl-install/bootlook.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 6441ef941..ce756e6b7 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -40,10 +40,11 @@ if ($::isEmbedded) {
   print "CCPID :  $::CCPID\n";
 }
 
-my $in = interactive::vnew('su');
+my $in = 'interactive'->vnew('su', 'default');
 local $_ = join '', @ARGV;
 
-/-h/ and die _("$Id$\nno help implemented yet.\n");
+/-h/ and die _("no help implemented yet.\n");
+/-version/ and die 'version: $Id$'."\n";
 
 my @winm;
 my @usernames;
-- 
cgit v1.2.1