diff options
| -rw-r--r-- | perl-install/bootlook.pm | 5 |
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; |