Return-Path: 
 <embperl-return-7078-apmail-perl-embperl-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-embperl-archive@www.apache.org
Received: (qmail 85790 invoked from network); 3 Dec 2004 08:23:59 -0000
Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199)
  by minotaur-2.apache.org with SMTP; 3 Dec 2004 08:23:59 -0000
Received: (qmail 76362 invoked by uid 500); 3 Dec 2004 08:23:58 -0000
Delivered-To: apmail-perl-embperl-archive@perl.apache.org
Received: (qmail 76339 invoked by uid 500); 3 Dec 2004 08:23:58 -0000
Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:embperl-help@perl.apache.org>
list-unsubscribe: <mailto:embperl-unsubscribe@perl.apache.org>
list-post: <mailto:embperl@perl.apache.org>
Delivered-To: mailing list embperl@perl.apache.org
Received: (qmail 76316 invoked by uid 99); 3 Dec 2004 08:23:57 -0000
X-ASF-Spam-Status: No, hits=0.0 required=10.0
	tests=FORGED_RCVD_HELO
X-Spam-Check-By: apache.org
Received-SPF: neutral (hermes.apache.org: local policy)
Received: from 242.70.233.220.exetel.com.au (HELO dolly.pasture.com.au)
 (220.233.70.242)
  by apache.org (qpsmtpd/0.28) with ESMTP; Fri, 03 Dec 2004 00:23:57 -0800
Received: from amavis by dolly.pasture.com.au with no-scan (Exim 4.34)
	id 1Ca8jK-0007zi-Ri
	for embperl@perl.apache.org; Fri, 03 Dec 2004 19:23:54 +1100
Received: from mongrel.pasture.com.au ([10.0.128.104])
	by dolly.pasture.com.au with esmtp (Exim 4.34)
	id 1Ca8jE-0007zc-47
	for embperl@perl.apache.org; Fri, 03 Dec 2004 19:23:48 +1100
Received: from localhost ([127.0.0.1] helo=mongrel.pasture.com.au)
	by mongrel.pasture.com.au with esmtp (Exim 4.34)
	id 1Ca8jF-0002RU-4G
	for embperl@perl.apache.org; Fri, 03 Dec 2004 19:23:49 +1100
Date: Fri, 03 Dec 2004 19:23:49 +1100
Message-ID: <87oehbdc2y.wl%gus@inodes.org>
From: Angus Lees <gus@inodes.org>
To: <embperl@perl.apache.org>
Subject: Various Embperl patches from the Debian package [2/3]
In-Reply-To: <20041121194050.5EDF110E13C@lnx1.i.ecos.de>
References: <20041121194050.5EDF110E13C@lnx1.i.ecos.de>
Mail-Followup-To: <embperl@perl.apache.org>
User-Agent: Wanderlust/2.11.30 (Wonderwall) XEmacs/21.4 (Security Through
 Obscurity)
Mail-Copies-To: never
MIME-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: text/plain; charset=US-ASCII
X-Virus-Checked: Checked
X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N

This one is needed for some architectures (m68k) where PTR2IV can
produce a signed (negative) result:

--- libembperl-perl-2.0rc2.orig/test/cmp/reqrec.htm
+++ libembperl-perl-2.0rc2/test/cmp/reqrec.htm
@@ -9,11 +9,11 @@
 $_[1] =  <br> 
 
 ^\$rec_rec  = Apache(::RequestRec)?=SCALAR\(0x.*?\)<br>
-^\$\$rec_rec = \d+<br>
+^\$\$rec_rec = -?\d+<br>
 
 ^Apache->request    = Apache(::RequestRec)?=SCALAR\(0x.*?\)<br>
-^\$\{Apache->request\} = \d+<br>
+^\$\{Apache->request\} = -?\d+<br>
 
 ${Apache->request} = $$req_rec ?  yes <br>
 
--- libembperl-perl-2.0rc2.orig/test/cmp/varepvar.htm
+++ libembperl-perl-2.0rc2/test/cmp/varepvar.htm
@@ -12,7 +12,7 @@
 ^\$\$rec_rec = -?\d+<br>
 
 ^Apache->request    = Apache(::RequestRec)?=SCALAR\(0x.*?\)<br>
-^\$\{Apache->request\} = \d+<br>
+^\$\{Apache->request\} = -?\d+<br>
 
 ${Apache->request} = $$req_rec ?  yes <br>
 


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org