From df40e0fd143380b4c895d776673239fa928be1c9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 29 Sep 2004 05:12:10 +0000 Subject: (version) print translated usage message (#5657) --- perl-install/standalone.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index bdbd16ac5..4a3cb0c0a 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -130,7 +130,8 @@ foreach (@ARGV) { $i++; if (/^-(-help|h)$/) { version(); - print 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}, common::translate($usages{$progname})), "\n"; # print N("\nUsage: "), $::usage, "\n" if $::usage; exit(0); } elsif (/^-(-version|v)$/) { -- cgit v1.2.1