summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-06-20 11:33:53 +0200
committerPascal Terjan <pterjan@gmail.com>2014-10-20 21:29:55 +0000
commitf6274da2b18edda9bbbe82e3e40d5be56449e106 (patch)
tree2a7aa24cf51e35ee3c67e0e70277aa6416524498 /perl-install/any.pm
parentb933bb2848370bb14158e1274ab0dcec8a1fb5ce (diff)
downloaddrakx-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)
Diffstat (limited to 'perl-install/any.pm')
-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(),