s/__END__/1;

18 files changed, 17 insertions, 17 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 0b5b233d1..88c02dc52 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1075,4 +1075,4 @@ sub install {
     die first(map { $_ } @rcs);
 }
 
-__END__
+1;
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index d98842b7f..83717a1a1 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -581,4 +581,4 @@ sub loadkeys {
 
 sub sync { common::sync() }
 
-__END__
+1;
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 930944853..a18eb41af 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -180,4 +180,4 @@ sub join_lines {
     @l, if_($s, $s);
 }
 
-__END__
+1;
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 82f3d126f..5f2e88749 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -918,4 +918,4 @@ sub is_a_recent_computer {
     $frequence > 600;
 }
 
-__END__
+1;
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 44fcdf0fb..40edec59d 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -735,4 +735,4 @@ sub verifyHds {
     $ok;
 }
 
-__END__
+1;
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 04db8b74b..d7eb38011 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -75,4 +75,4 @@ our @tree =
 	);
 
 
-__END__
+1;
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 4eaaefad8..413d4cf0f 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 2886f56d7..a89e8863a 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -627,4 +627,4 @@ sub main {
     print "\n" x 80;
 }
 
-__END__
+1;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index fba5771b1..47249b586 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -1050,4 +1050,4 @@ sub cleanIfFailedUpgrade($) {
 }
 
 
-__END__
+1;
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5b832de2c..42ccb5e71 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -640,4 +640,4 @@ sub set_help {
     1;
 }
 
-__END__
+1;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index edae49230..c109b6419 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1368,4 +1368,4 @@ You may prefer to replay the installation.
 #- Misc Steps Functions
 #-######################################################################################
 
-__END__
+1;
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 17927b51e..2ba24f076 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -395,4 +395,4 @@ sub wait_message {
 
 sub kill {}
 
-__END__
+1;
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 3d482f1d7..988720491 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -511,4 +511,4 @@ sub check {
     exit($ok ? 0 : 1);
 }
 
-__END__
+1;
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index a5fee9942..7084ead9f 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -865,4 +865,4 @@ sub check {
     exit($ok ? 0 : 1);
 }
 
-__END__
+1;
diff --git a/perl-install/log.pm b/perl-install/log.pm
index 31bc63544..695f70545 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -54,4 +54,4 @@ sub closeLog() {
     } else { close LOG; close LOG2 }
 }
 
-__END__
+1;
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index e4e80e51a..1a88f14da 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -450,4 +450,4 @@ sub configureNetwork2 {
 }
 
 
-__END__
+1;
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index f12dd77ed..37e9be636 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -2483,4 +2483,4 @@ sub removesection {
     return join ("", @lines);
 }
 
-__END__
+1;
diff --git a/perl-install/steps.pm b/perl-install/steps.pm
index 080aa6f22..162bc6d57 100644
--- a/perl-install/steps.pm
+++ b/perl-install/steps.pm
@@ -47,4 +47,4 @@ if_((arch() !~ /alpha/) && (arch() !~ /ppc/),
 }
 
 
-__END__
+1;