projects
/
mkws-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ffe5f0a
)
Get rid of tmp file.
author
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 12:06:04 +0000
(14:06 +0200)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 12:06:04 +0000
(14:06 +0200)
etc/mod_perl/MyApache2/CopyCookie.pm
patch
|
blob
|
history
diff --git
a/etc/mod_perl/MyApache2/CopyCookie.pm
b/etc/mod_perl/MyApache2/CopyCookie.pm
index
a5e64c2
..
b0f669f
100644
(file)
--- a/
etc/mod_perl/MyApache2/CopyCookie.pm
+++ b/
etc/mod_perl/MyApache2/CopyCookie.pm
@@
-12,12
+12,10
@@
sub handler {
my $ho = $f->r->headers_out;
my $cookie = $ho->get('Set-Cookie');
- open F, ">/tmp/mike";
- print F "MyApache2::CopyCookie headers_out='$ho', cookie='$cookie'";
+ warn "MyApache2::CopyCookie headers_out='$ho', cookie='$cookie'";
$ho->set('X-Set-Cookie', $cookie);
my $extra = $ho->get('X-Set-Cookie');
- print F "MyApache2::CopyCookie extra cookie='$extra'";
- close F;
+ warn "MyApache2::CopyCookie extra cookie='$extra'";
return Apache2::Const::OK;
}