From 802f7267927e0d341081c5c01f25e83c4c833b89 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 27 Jun 2013 13:12:13 +0200 Subject: [PATCH] Simplify, make less verbose. --- etc/mod_perl/MyApache2/SetACAO.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/etc/mod_perl/MyApache2/SetACAO.pm b/etc/mod_perl/MyApache2/SetACAO.pm index 831b784..66334fc 100644 --- a/etc/mod_perl/MyApache2/SetACAO.pm +++ b/etc/mod_perl/MyApache2/SetACAO.pm @@ -14,13 +14,10 @@ sub handler { # If the client generated an Origin header, echo its content back # in an ACAO header. This is better than just using *, since it # doesnt prevent credentials from being accepted. - my $hi = $f->r->headers_in; - my $ho = $f->r->headers_out; - my $origin = $hi->get('Origin'); - warn "MyApache2::SetACAO got origin '$origin'"; + my $origin = $f->r->headers_in->get('Origin'); if (defined $origin && $origin ne "") { - $ho->set('Access-Control-Allow-Origin', $origin); - warn "MyApache2::SetACAO copied origin to ACAO"; + $f->r->headers_out->set('Access-Control-Allow-Origin', $origin); + warn "MyApache2::SetACAO copied Origin '$origin' to ACAO"; } while ($f->read(my $buffer, BUFF_LEN)) { -- 1.7.10.4