From 0c092819e72367331b511fcdc316a253152b6326 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Tue, 15 Nov 2022 18:52:30 -0600
Subject: [PATCH] Rename debug procedure to reflect its actual usage and
 simplify call

---
 gatekeeper.pl | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 25b9269..9d134cf 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1459,7 +1459,7 @@ sub mail {
 	   wrap('','',$msg));
 }
 
-sub debug {
+sub report_upload_to_archive {
   my $msg = shift;
   my $package_name = shift;
 
@@ -2707,13 +2707,11 @@ foreach my $packet (@packets) {	# each list element is an array reference
     push @email_addresses,
       directory_email_addresses($op_header->{directory});
 
-    # Phone home. E-mail the contents of the directive file to the maintainer,
-    # for debugging purposes.
-    if (defined $op_header->{package}) {
-      debug($directive_text, $op_header->{package}) if DEBUG;
-    } else {
-      debug($directive_text, '') if DEBUG;
-    }
+    # Phone home. E-mail the contents of the directive file to the public
+    # archive list.
+    report_upload_to_archive($directive_text,
+			     defined $op_header->{package}
+			     ? $op_header->{package} : '');
 
     validate_directive($packet, $oplist);
 
-- 
2.25.1