From 1696a32337f6e362b68e95283081f3a9828dd7bd Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Apr 2005 09:52:03 +0000 Subject: - remove non useful non-ascii characters - add "use utf8" for useful utf8 characters --- perl-install/share/advertising/05.pl | 2 ++ perl-install/share/advertising/10.pl | 4 +++- perl-install/share/advertising/14.pl | 4 +++- perl-install/share/advertising/21.pl | 4 +++- perl-install/share/advertising/22.pl | 4 +++- perl-install/share/advertising/24.pl | 4 +++- perl-install/share/advertising/28.pl | 4 +++- perl-install/standalone/drakpxe | 2 +- perl-install/standalone/draksplash | 2 -- 9 files changed, 21 insertions(+), 9 deletions(-) diff --git a/perl-install/share/advertising/05.pl b/perl-install/share/advertising/05.pl index f527b58e7..e2017969d 100644 --- a/perl-install/share/advertising/05.pl +++ b/perl-install/share/advertising/05.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; diff --git a/perl-install/share/advertising/10.pl b/perl-install/share/advertising/10.pl index 4c444457e..a59f1d206 100644 --- a/perl-install/share/advertising/10.pl +++ b/perl-install/share/advertising/10.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -14,4 +16,4 @@ $border = 10; #- for leftish text ' ', N("Mandrakesoft has developed two products that allow you to use Mandrakelinux on any computer and without any need to actually install it:"), N(" * Move, a Mandrakelinux distribution that runs entirely from a bootable CD-ROM."), - N(" * GlobeTrotter, a Mandrakelinux distribution pre-installed on the ultra-compact “LaCie Mobile Hard Drive”.")); \ No newline at end of file + N(" * GlobeTrotter, a Mandrakelinux distribution pre-installed on the ultra-compact “LaCie Mobile Hard Drive”.")); diff --git a/perl-install/share/advertising/14.pl b/perl-install/share/advertising/14.pl index a46e1ff84..c886c1094 100644 --- a/perl-install/share/advertising/14.pl +++ b/perl-install/share/advertising/14.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -16,4 +18,4 @@ $border = 10; #- for leftish text ' ', N("It is a full-featured office suite that includes word processor, spreadsheet, presentation and drawing applications."), ' ', - N("OpenOffice.org can read and write most types of Microsoft® Office documents such as Word, Excel and PowerPoint® files.")); \ No newline at end of file + N("OpenOffice.org can read and write most types of Microsoft® Office documents such as Word, Excel and PowerPoint® files.")); diff --git a/perl-install/share/advertising/21.pl b/perl-install/share/advertising/21.pl index a9961b402..6bbc66812 100644 --- a/perl-install/share/advertising/21.pl +++ b/perl-install/share/advertising/21.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -20,4 +22,4 @@ $border = 10; #- for leftish text N(" * Scripting languages:"), N(" * Perl"), N(" * Python"), - N(" * And many more.")); \ No newline at end of file + N(" * And many more.")); diff --git a/perl-install/share/advertising/22.pl b/perl-install/share/advertising/22.pl index 18d0ee371..450ded214 100644 --- a/perl-install/share/advertising/22.pl +++ b/perl-install/share/advertising/22.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -14,4 +16,4 @@ $border = 10; #- for leftish text ' ', N("PowerPack gives you the best tools to develop your own applications."), ' ', - N("With the powerful integrated development environment KDevelop and the leading Linux compiler GCC, you will be able to create applications in many different languages (C, C++, Java™, Perl, Python, etc.).")); \ No newline at end of file + N("With the powerful integrated development environment KDevelop and the leading Linux compiler GCC, you will be able to create applications in many different languages (C, C++, Java™, Perl, Python, etc.).")); diff --git a/perl-install/share/advertising/24.pl b/perl-install/share/advertising/24.pl index b09429d75..075b90d1b 100644 --- a/perl-install/share/advertising/24.pl +++ b/perl-install/share/advertising/24.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -18,4 +20,4 @@ $border = 10; #- for leftish text N(" * MySQL and PostgreSQL: The world's most popular open source databases."), N(" * CVS: Concurrent Versions System, the dominant open source network-transparent version control system."), N(" * ProFTPD: The highly configurable GPL-licensed FTP server software."), - N(" * Postfix and Sendmail: The popular and powerful mail servers.")); \ No newline at end of file + N(" * Postfix and Sendmail: The popular and powerful mail servers.")); diff --git a/perl-install/share/advertising/28.pl b/perl-install/share/advertising/28.pl index f688cd2e7..cce312594 100644 --- a/perl-install/share/advertising/28.pl +++ b/perl-install/share/advertising/28.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use utf8; + $width = 556; $height = 303; @@ -19,4 +21,4 @@ $border = 10; #- for leftish text N(" * Access to commercial applications (for example to NVIDIA® or ATI™ drivers)."), N(" * Participation in Mandrakelinux user forums."), N(" * Early and privileged access, before public release, to Mandrakelinux ISO images."), - N(" * And many more.")); \ No newline at end of file + N(" * And many more.")); diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe index 5e374faff..d6e37c1ed 100755 --- a/perl-install/standalone/drakpxe +++ b/perl-install/standalone/drakpxe @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# Franois Pons +# Fran,cois Pons # # Copyright 2003-2004 Mandrakesoft # diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 072b593b6..7b0d9ea81 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -290,7 +290,6 @@ sub set_scale_values() { #- Desc => check if this theme is available in the current resolution else #- change the current resolution or display a ask_warn box -#- Args => #- return=> (bool) sub thm_in_this_res { my ($check_res) = @_; @@ -311,7 +310,6 @@ sub which_res_exist() { } #- Desc => retrieve all installed theme -#- Args => #- Return=> @arr of available theme sub giv_exist_thm() { chdir($thm_path); -- cgit v1.2.1