From 6271745e925dae0991d00c528b13754d194013f3 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Fri, 8 Dec 2023 17:41:36 -0500
Subject: [PATCH] Re-order a function to alphabetize

---
 util/perldoc-bug | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/util/perldoc-bug b/util/perldoc-bug
index d0b29ce..0770582 100755
--- a/util/perldoc-bug
+++ b/util/perldoc-bug
@@ -95,20 +95,6 @@ sub collect_env_info {
 	return \%hash;
 	}
 
-sub collect_os_info {
-	my %hash;
-
-	$hash{type} = $^O;
-	if( $osname eq 'MSWin32' and eval { require Win32; } ) {
-		$hash{name} = Win32::GetOSName();
-		}
-	else {
-		$hash{uname} = `uname -a`;
-		}
-
-	return \%hash;
-	}
-
 sub collect_module_info {
 	my %hash;
 
@@ -132,6 +118,20 @@ sub collect_module_info {
 	return \%hash;
 	}
 
+sub collect_os_info {
+	my %hash;
+
+	$hash{type} = $^O;
+	if( $osname eq 'MSWin32' and eval { require Win32; } ) {
+		$hash{name} = Win32::GetOSName();
+		}
+	else {
+		$hash{uname} = `uname -a`;
+		}
+
+	return \%hash;
+	}
+
 sub collect_pod_perldoc_info {
 	my %hash;
 	$hash{cwd} = getcwd();