File: 01-subrequest-return.dpatch

package info (click to toggle)
libmasonx-request-withapachesession-perl 0.30-3.1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 116 kB
  • ctags: 14
  • sloc: perl: 592; makefile: 106; sh: 62
file content (32 lines) | stat: -rw-r--r-- 807 bytes parent folder | download | duplicates (3)
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
#! /bin/sh -e
## 01-cast.dpatch
## (Original made by Aurelien Jarno <aurelien@aurel32.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@
		
--- /tmp/WithApacheSession.pm.old	2005-09-14 23:27:49.648664936 -0400
+++ ./lib/MasonX/Request/WithApacheSession.pm	2005-09-14 23:03:09.795603823 -0400
@@ -74,7 +74,7 @@
 
     my $self = $class->SUPER::new(@_);
 
-    return if $self->is_subrequest;
+    return $self if $self->is_subrequest;
 
     # backwards compatibility
     $self->{session_param_name} =