summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/share/advertising/05.pl2
-rw-r--r--perl-install/share/advertising/10.pl4
-rw-r--r--perl-install/share/advertising/14.pl4
-rw-r--r--perl-install/share/advertising/21.pl4
-rw-r--r--perl-install/share/advertising/22.pl4
-rw-r--r--perl-install/share/advertising/24.pl4
-rw-r--r--perl-install/share/advertising/28.pl4
-rwxr-xr-xperl-install/standalone/drakpxe2
-rwxr-xr-xperl-install/standalone/draksplash2
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 <b>on any computer</b> and without any need to actually install it:"),
N(" * <b>Move</b>, a Mandrakelinux distribution that runs entirely from a bootable CD-ROM."),
- N(" * <b>GlobeTrotter</b>, a Mandrakelinux distribution pre-installed on the ultra-compact “LaCie Mobile Hard Drive”.")); \ No newline at end of file
+ N(" * <b>GlobeTrotter</b>, 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 <b>full-featured office suite</b> that includes word processor, spreadsheet, presentation and drawing applications."),
' ',
- N("OpenOffice.org can read and write most types of <b>Microsoft® Office</b> documents such as Word, Excel and PowerPoint® files.")); \ No newline at end of file
+ N("OpenOffice.org can read and write most types of <b>Microsoft® Office</b> 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(" * <b>Perl</b>"),
N(" * <b>Python</b>"),
- 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 <b>develop</b> your own applications."),
' ',
- N("With the powerful integrated development environment <b>KDevelop</b> and the leading Linux compiler <b>GCC</b>, you will be able to create applications in <b>many different languages</b> (C, C++, Java™, Perl, Python, etc.).")); \ No newline at end of file
+ N("With the powerful integrated development environment <b>KDevelop</b> and the leading Linux compiler <b>GCC</b>, you will be able to create applications in <b>many different languages</b> (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(" * <b>MySQL</b> and <b>PostgreSQL</b>: The world's most popular open source databases."),
N(" * <b>CVS</b>: Concurrent Versions System, the dominant open source network-transparent version control system."),
N(" * <b>ProFTPD</b>: The highly configurable GPL-licensed FTP server software."),
- N(" * <b>Postfix</b> and <b>Sendmail</b>: The popular and powerful mail servers.")); \ No newline at end of file
+ N(" * <b>Postfix</b> and <b>Sendmail</b>: 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 <b>commercial applications</b> (for example to NVIDIA® or ATI™ drivers)."),
N(" * Participation in Mandrakelinux <b>user forums</b>."),
N(" * <b>Early and privileged access</b>, before public release, to Mandrakelinux <b>ISO images</b>."),
- 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 <fpons@mandrakesoft.com>
+# Fran,cois Pons <fpons@mandrakesoft.com>
#
# 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);