summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-06-20 11:33:53 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-08-20 21:13:46 +0200
commitd28c80843b6fee2ddf218393fb72431e66644af8 (patch)
tree2a7aa24cf51e35ee3c67e0e70277aa6416524498
parent4978e440be12705f9d1dcb5aa84c6dd930f47dc6 (diff)
downloaddrakx-d28c80843b6fee2ddf218393fb72431e66644af8.tar
drakx-d28c80843b6fee2ddf218393fb72431e66644af8.tar.gz
drakx-d28c80843b6fee2ddf218393fb72431e66644af8.tar.bz2
drakx-d28c80843b6fee2ddf218393fb72431e66644af8.tar.xz
drakx-d28c80843b6fee2ddf218393fb72431e66644af8.zip
(header) make it usable outside of any.pm
(needed for next commit)
-rw-r--r--perl-install/any.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index c7214ac34..e3bc3b3ae 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1220,14 +1220,14 @@ sub set_login_serial_console {
substInFile { s/^s$port:.*//; $_ = $line if eof } "$::prefix/etc/inittab";
}
-sub report_bug {
- my (@other) = @_;
-
- sub header { "
+sub header { "
********************************************************************************
* $_[0]
********************************************************************************";
- }
+}
+
+sub report_bug {
+ my (@other) = @_;
join '', map { chomp; "$_\n" }
header("lspci"), detect_devices::stringlist(),