diff options
| author | Thierry.Vignaud <thierry.vignaud@gmail.com> | 2014-06-20 11:33:53 +0200 |
|---|---|---|
| committer | Pascal Terjan <pterjan@gmail.com> | 2014-10-20 21:29:55 +0000 |
| commit | f6274da2b18edda9bbbe82e3e40d5be56449e106 (patch) | |
| tree | 2a7aa24cf51e35ee3c67e0e70277aa6416524498 | |
| parent | b933bb2848370bb14158e1274ab0dcec8a1fb5ce (diff) | |
| download | drakx-f6274da2b18edda9bbbe82e3e40d5be56449e106.tar drakx-f6274da2b18edda9bbbe82e3e40d5be56449e106.tar.gz drakx-f6274da2b18edda9bbbe82e3e40d5be56449e106.tar.bz2 drakx-f6274da2b18edda9bbbe82e3e40d5be56449e106.tar.xz drakx-f6274da2b18edda9bbbe82e3e40d5be56449e106.zip | |
(header) make it usable outside of any.pm
(needed for next commit)
| -rw-r--r-- | perl-install/any.pm | 10 |
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(), |