1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#! /bin/sh -e
## 02-cgi-request.dpatch
## (Original made by Adrian Irving-Beer <wisq-deb@wisq.net>)
if [ $# -ne 1 ]; then
echo >&2 "basename $0: script expects -patch|-unpatch as argument"
exit 1
fi
case "$1" in
-patch) patch -f --no-backup-if-mismatch -p0 < $0;;
-unpatch) patch -f --no-backup-if-mismatch -R -p0 < $0;;
*)
echo >&2 "basename $0: script expects -patch|-unpatch as argument"
exit 1;;
esac
exit 0
@DPATCH@
--- /usr/share/perl5/MasonX/Request/WithApacheSession.pm 2005-11-18 10:47:31.000000000 -0500
+++ lib/MasonX/Request/WithApacheSession.pm 2007-05-16 15:00:50.000000000 -0400
@@ -87,9 +87,9 @@
param_object => $self->apache_req,
);
}
- elsif ( $self->can('cgi_object') )
+ elsif ( $self->can('cgi_request') && $self->can('cgi_object') )
{
- %extra = ( header_object => $self->cgi_object,
+ %extra = ( header_object => $self->cgi_request,
param_object => $self->cgi_object,
);
}
|
