From b7cb1aba6d00719171b15f0715fac27027fdb6f8 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 4 Feb 2004 11:51:41 +0000 Subject: http://www.gnu.org/prep/standards_18.html says --help and --version are printed on standard output --- perl-install/standalone.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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 ', $::license, "\n"; } -- cgit v1.2.1