From f6274da2b18edda9bbbe82e3e40d5be56449e106 Mon Sep 17 00:00:00 2001 From: "Thierry.Vignaud" Date: Fri, 20 Jun 2014 11:33:53 +0200 Subject: (header) make it usable outside of any.pm (needed for next commit) --- perl-install/any.pm | 10 +++++----- 1 file 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(), -- cgit v1.2.1