summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-05 10:06:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-05 10:06:27 +0000
commitd994b1cbfc01ff23091c55d90097cafd80fd432d (patch)
tree44df7cdd0527a8028468ddbd254e79add6891f0c
parentb096f5f83821eb24c28423f402866002a8f0ddac (diff)
downloaddrakx-backup-do-not-use-d994b1cbfc01ff23091c55d90097cafd80fd432d.tar
drakx-backup-do-not-use-d994b1cbfc01ff23091c55d90097cafd80fd432d.tar.gz
drakx-backup-do-not-use-d994b1cbfc01ff23091c55d90097cafd80fd432d.tar.bz2
drakx-backup-do-not-use-d994b1cbfc01ff23091c55d90097cafd80fd432d.tar.xz
drakx-backup-do-not-use-d994b1cbfc01ff23091c55d90097cafd80fd432d.zip
kill "wonderful perl"
-rw-r--r--perl-install/bootloader.pm5
-rw-r--r--perl-install/commands.pm6
-rw-r--r--perl-install/common.pm5
-rw-r--r--perl-install/detect_devices.pm6
-rw-r--r--perl-install/fsedit.pm5
-rw-r--r--perl-install/harddrake/data.pm2
-rw-r--r--perl-install/install2.pm5
-rw-r--r--perl-install/install_steps.pm5
-rw-r--r--perl-install/install_steps_gtk.pm5
-rw-r--r--perl-install/install_steps_interactive.pm5
-rw-r--r--perl-install/interactive.pm5
-rw-r--r--perl-install/keyboard.pm5
-rw-r--r--perl-install/lang.pm5
-rw-r--r--perl-install/log.pm5
-rw-r--r--perl-install/network/network.pm5
-rw-r--r--perl-install/printer.pm5
-rw-r--r--perl-install/steps.pm3
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__