X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FHeaders.pm;h=28675fce3dd0252b1e75a89dce92f6e6d6007ad3;hb=ea5f13786b12c5e802196b6efa8282e1b7cc72c5;hp=dff1ced896ee6b4d5f0c56d4efac5732bd2755fd;hpb=b8b992790ac51e41943f2747b52afed0228885c6;p=maypole.git

diff --git a/lib/Maypole/Headers.pm b/lib/Maypole/Headers.pm
index dff1ced..28675fc 100644
--- a/lib/Maypole/Headers.pm
+++ b/lib/Maypole/Headers.pm
@@ -4,7 +4,7 @@ use base 'HTTP::Headers';
 use strict;
 use warnings;
 
-our $VERSION = "1." . sprintf "%04d", q$Rev: 324 $ =~ /: (\d+)/;
+our $VERSION = "1." . sprintf "%04d", q$Rev: 376 $ =~ /: (\d+)/;
 
 sub get {
     shift->header(shift);
@@ -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