From f807b2a3fab46e592734ff87e27ca1fe31152782 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 23 Feb 2018 13:30:56 -0800
Subject: [PATCH] use state for read_bug field namemap

---
 Debbugs/Status.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 5a36998..9b59045 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -245,7 +245,7 @@ sub read_bug{
 	 return undef;
     }
 
-    my %namemap = reverse %fields;
+    state $namemap = {reverse %fields};
     for my $line (@lines) {
         if ($line =~ /(\S+?): (.*)/) {
             my ($name, $value) = (lc $1, $2);
@@ -253,7 +253,7 @@ sub read_bug{
 	    # or \n in the fields of status. Kill them off here.
 	    # [Eventually, this should be superfluous.]
 	    $value =~ s/[\r\n]//g;
-	    $data{$namemap{$name}} = $value if exists $namemap{$name};
+	    $data{$namemap->{$name}} = $value if exists $namemap->{$name};
         }
     }
     for my $field (keys %fields) {
-- 
2.39.2