summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-08-10 01:45:43 +0000
committerYves Duret <yduret@mandriva.com>2001-08-10 01:45:43 +0000
commit160b5383a5e306e6beef2212fc76f8e6ede16090 (patch)
tree4227a8f36ae0272a863405fbf579d61deeb40b3c /perl-install/bootlook.pm
parent93f6bf74e5a1c9ef0d714532aedea49876748e25 (diff)
downloaddrakx-160b5383a5e306e6beef2212fc76f8e6ede16090.tar
drakx-160b5383a5e306e6beef2212fc76f8e6ede16090.tar.gz
drakx-160b5383a5e306e6beef2212fc76f8e6ede16090.tar.bz2
drakx-160b5383a5e306e6beef2212fc76f8e6ede16090.tar.xz
drakx-160b5383a5e306e6beef2212fc76f8e6ede16090.zip
corrected vnew usage (thx gc)
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm5
1 files changed, 3 insertions, 2 deletions
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;