From fc00a6d4a68ad0ba64696037992b19b453316583 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 26 Jun 2013 13:39:31 +0200 Subject: [PATCH] Reformat Perl code. --- etc/mod_perl/MyApache2/CopyCookie.pm | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/etc/mod_perl/MyApache2/CopyCookie.pm b/etc/mod_perl/MyApache2/CopyCookie.pm index 730abc3..2cdf24f 100644 --- a/etc/mod_perl/MyApache2/CopyCookie.pm +++ b/etc/mod_perl/MyApache2/CopyCookie.pm @@ -1,16 +1,17 @@ - package MyApache2::CopyCookie; - use Apache2::Filter (); - use Apache2::RequestRec (); - use APR::Table (); +package MyApache2::CopyCookie; - use Apache2::Const -compile => qw(OK); +use Apache2::Filter (); +use Apache2::RequestRec (); +use APR::Table (); - sub handler { - my $f = shift; +use Apache2::Const -compile => qw(OK); - my $cookie = $f->r->headers_out->get('Set-Cookie'); - $f->r->headers_out->set('X-Set-Cookie', $cookie); - return Apache2::Const::OK; - } - 1; +sub handler { + my $f = shift; + my $cookie = $f->r->headers_out->get('Set-Cookie'); + $f->r->headers_out->set('X-Set-Cookie', $cookie); + return Apache2::Const::OK; +} + +1; -- 1.7.10.4