kill "wonderful perl"

17 files changed, 17 insertions, 65 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a8f2c4584..0b5b233d1 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1075,7 +1075,4 @@ sub install {
     die first(map { $_ } @rcs);
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1; #
+__END__
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 1a7f09634..d98842b7f 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -581,8 +581,4 @@ sub loadkeys {
 
 sub sync { common::sync() }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1; #
-
+__END__
diff --git a/perl-install/common.pm b/perl-install/common.pm
index d4ab95d25..930944853 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -180,7 +180,4 @@ sub join_lines {
     @l, if_($s, $s);
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1; #
+__END__
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index cb041df67..82f3d126f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -918,8 +918,4 @@ sub is_a_recent_computer {
     $frequence > 600;
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1; #
-
+__END__
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 311c04ece..44fcdf0fb 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -735,7 +735,4 @@ sub verifyHds {
     $ok;
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1; #
+__END__
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index d7eb38011..04db8b74b 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -75,4 +75,4 @@ our @tree =
 	);
 
 
-1;
+__END__
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 66e7f32b2..2886f56d7 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -627,7 +627,4 @@ sub main {
     print "\n" x 80;
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 74a7bab16..fba5771b1 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -1050,7 +1050,4 @@ sub cleanIfFailedUpgrade($) {
 }
 
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 4b44f10a3..5b832de2c 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -640,7 +640,4 @@ sub set_help {
     1;
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1; #
+__END__
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 68b77dbe7..edae49230 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1368,7 +1368,4 @@ You may prefer to replay the installation.
 #- Misc Steps Functions
 #-######################################################################################
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 1c78dd931..17927b51e 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -395,7 +395,4 @@ sub wait_message {
 
 sub kill {}
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 00c9b245e..3d482f1d7 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -511,7 +511,4 @@ sub check {
     exit($ok ? 0 : 1);
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 29af52819..a5fee9942 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -865,7 +865,4 @@ sub check {
     exit($ok ? 0 : 1);
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/log.pm b/perl-install/log.pm
index 448928812..31bc63544 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -54,7 +54,4 @@ sub closeLog() {
     } else { close LOG; close LOG2 }
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 4305d6011..e4e80e51a 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -450,7 +450,4 @@ sub configureNetwork2 {
 }
 
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 9d0a2a47c..f12dd77ed 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -2483,7 +2483,4 @@ sub removesection {
     return join ("", @lines);
 }
 
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;
+__END__
diff --git a/perl-install/steps.pm b/perl-install/steps.pm
index d2506cf8a..080aa6f22 100644
--- a/perl-install/steps.pm
+++ b/perl-install/steps.pm
@@ -47,5 +47,4 @@ if_((arch() !~ /alpha/) && (arch() !~ /ppc/),
 }
 
 
-#- Wonderful perl :(
-1;
+__END__