diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-04 11:51:41 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-04 11:51:41 +0000 |
| commit | b7cb1aba6d00719171b15f0715fac27027fdb6f8 (patch) | |
| tree | 3f97624d7fb6b8005746713f8822ab41dde5594e | |
| parent | 524cc86121cfe73ccf0466acb5bcac2706d4e799 (diff) | |
| download | drakx-b7cb1aba6d00719171b15f0715fac27027fdb6f8.tar drakx-b7cb1aba6d00719171b15f0715fac27027fdb6f8.tar.gz drakx-b7cb1aba6d00719171b15f0715fac27027fdb6f8.tar.bz2 drakx-b7cb1aba6d00719171b15f0715fac27027fdb6f8.tar.xz drakx-b7cb1aba6d00719171b15f0715fac27027fdb6f8.zip | |
http://www.gnu.org/prep/standards_18.html says --help and --version are printed on standard output
| -rw-r--r-- | perl-install/standalone.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 63bebc74e..f86e49fd5 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -126,7 +126,7 @@ foreach (@ARGV) { $i++; if (/^-(-help|h)$/) { version(); - print STDERR N("\nUsage: %s [--auto] [--beginner] [--expert] [-h|--help] [--noauto] [--testing] [-v|--version] ", $progname), if_($usages{$progname}, $usages{$progname}), "\n"; + print N("\nUsage: %s [--auto] [--beginner] [--expert] [-h|--help] [--noauto] [--testing] [-v|--version] ", $progname), if_($usages{$progname}, $usages{$progname}), "\n"; # print N("\nUsage: "), $::usage, "\n" if $::usage; exit(0); } elsif (/^-(-version|v)$/) { @@ -154,7 +154,7 @@ foreach (@ARGV) { sub version { - print STDERR 'Drakxtools version 9.3.0 + print 'Drakxtools version 9.3.0 Copyright (C) 1999-2004 MandrakeSoft by <install@mandrakesoft.com> ', $::license, "\n"; } |