From d994b1cbfc01ff23091c55d90097cafd80fd432d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 5 Aug 2002 10:06:27 +0000 Subject: kill "wonderful perl" --- perl-install/bootloader.pm | 5 +---- perl-install/commands.pm | 6 +----- perl-install/common.pm | 5 +---- perl-install/detect_devices.pm | 6 +----- perl-install/fsedit.pm | 5 +---- perl-install/harddrake/data.pm | 2 +- perl-install/install2.pm | 5 +---- perl-install/install_steps.pm | 5 +---- perl-install/install_steps_gtk.pm | 5 +---- perl-install/install_steps_interactive.pm | 5 +---- perl-install/interactive.pm | 5 +---- perl-install/keyboard.pm | 5 +---- perl-install/lang.pm | 5 +---- perl-install/log.pm | 5 +---- perl-install/network/network.pm | 5 +---- perl-install/printer.pm | 5 +---- perl-install/steps.pm | 3 +-- 17 files changed, 17 insertions(+), 65 deletions(-) (limited to 'perl-install') 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__ -- cgit v1.2.1