From c93f01424e48798f0dcc9f8ca86df6631ff584b8 Mon Sep 17 00:00:00 2001
From: David Baird <cpan.zerofive@googlemail.com>
Date: Sat, 20 Aug 2005 13:45:35 +0000
Subject: [PATCH] add() alis to push() in Mp::Headers - bug 14142

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@376 48953598-375a-da11-a14b-00016c27c3ee
---
 Changes                | 1 +
 lib/Maypole/Headers.pm | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/Changes b/Changes
index 9872249..dbf4c9b 100644
--- a/Changes
+++ b/Changes
@@ -11,6 +11,7 @@ For information about current developments and future releases, see:
     Apache2 fix in Apache::MVC (bug 13888)
     Maypole::Session::generate_unique_id() now returns the id (bug 14124)
     Implement -Init flag in Mp::Application (wishlist 14123)
+    add() alias to push() in Mp::Headers (wishlist 14142)
 
 2.10 Tue 19 Jul 2005
     Multiple Template Paths added ( http://rt.cpan.org/NoAuth/Bug.html?id=13447 )
diff --git a/lib/Maypole/Headers.pm b/lib/Maypole/Headers.pm
index 33edc1b..320cb05 100644
--- a/lib/Maypole/Headers.pm
+++ b/lib/Maypole/Headers.pm
@@ -14,6 +14,8 @@ sub set {
     shift->header(@_);
 }
 
+*add = \&push; # useful for Apache::Session::Wrapper support
+
 sub push {
     shift->push_header(@_);
 }
@@ -84,6 +86,10 @@ Add a value to the field named C<$header>. Previous values are maintained.
 
 An alias to C<HTTP::Headers-E<gt>push_header>
 
+=item add
+
+Alias to C<push> - useful for C<Apache::Session::Wrapper> support, in CGI mode.
+
 =item init($header =C<gt> $value)
 
 Set the value for the field named C<$header>, but only if that header is
-- 
2.39.2