From bba722e7905d5cbf9f943d216f1f82aa6b3c5015 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Dec 2002 01:53:05 +0000 Subject: perl_checker --generate-pot is a bit picky about the localisation of "#-PO:" comments --- perl-install/any.pm | 8 ++++---- perl-install/bootloader.pm | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index 7bd83aeba..311fa1fd4 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -655,11 +655,11 @@ sub load_category__prompt_for_more { sub wait_load_module { my ($in, $category, $text, $module) = @_; -#-PO: the first %s is the card type (scsi, network, sound,...) -#-PO: the second is the vendor+model name $in->wait_message('', - [ N("Installing driver for %s card %s", $category, $text), - if_($::expert, N("(module %s)", $module)) + [ + #-PO: the first %s is the card type (scsi, network, sound,...) + #-PO: the second is the vendor+model name + N("Installing driver for %s card %s", $category, $text), if_($::expert, N("(module %s)", $module)) ]); } diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 329760a48..4c2f19d00 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1095,10 +1095,10 @@ sub install_loadlin_desktop { my ($lilo, $windrive) = @_; my $windir = lc(cat_("$windrive/msdos.sys") =~ /^WinDir=.:\\(\S+)/m ? $1 : "windows"); -#-PO: "Desktop" and "Start Menu" are the name of the directories found in c:\windows -#-PO: so you may need to put them in English or in a different language if MS-windows doesn't exist in your language - foreach (N_("Desktop"), -#-PO: "Desktop" and "Start Menu" are the name of the directories found in c:\windows + foreach (#-PO: "Desktop" and "Start Menu" are the name of the directories found in c:\windows + #-PO: so you may need to put them in English or in a different language if MS-windows doesn't exist in your language + N_("Desktop"), + #-PO: "Desktop" and "Start Menu" are the name of the directories found in c:\windows N_("Start Menu")) { my $d = "$windrive/$windir/" . translate($_); -d $d or $d = "$windrive/$windir/$_"; -- cgit v1.2.1