From f6274da2b18edda9bbbe82e3e40d5be56449e106 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
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