summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
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;