Bug 1141440: OPTION response for CORS requests to REST doesn't allow X-Bugzilla headers

- Fixed t/001compile.t error due to tr///r only for 5.14+

diff --git a/Bugzilla/WebService/Server/REST.pm b/Bugzilla/WebService/Server/REST.pm
index 9c9141c09fa0701d2ed3bc463f1fe5380dde9103..16e0419855527a0dc27fbb8ad72b163e1af0fbb3 100644 (file)
--- a/Bugzilla/WebService/Server/REST.pm
+++ b/Bugzilla/WebService/Server/REST.pm
@@ -134,8 +134,13 @@ sub response {
         { rpc => $self, result => \$result, response => $response });
 
     # Access Control
-    my @allowed_headers = (qw(accept content-type origin x-requested-with),
-        map { tr/A-Z_/a-z\-/r } keys API_AUTH_HEADERS());
+    my @allowed_headers = qw(accept content-type origin x-requested-with);
+    foreach my $header (keys API_AUTH_HEADERS()) {
+        # We want to lowercase and replace _ with -
+        my $translated_header = $header;
+        $translated_header =~ tr/A-Z_/a-z\-/;
+        push(@allowed_headers, $translated_header);
+    }
     $response->header("Access-Control-Allow-Origin", "*");
     $response->header("Access-Control-Allow-Headers", join(', ', @allowed_headers));