Return-Path: Delivered-To: apmail-perl-embperl-archive@www.apache.org Received: (qmail 127 invoked from network); 3 Dec 2004 08:40:29 -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:40:29 -0000 Received: (qmail 6078 invoked by uid 500); 3 Dec 2004 08:40:23 -0000 Delivered-To: apmail-perl-embperl-archive@perl.apache.org Received: (qmail 6046 invoked by uid 500); 3 Dec 2004 08:40:22 -0000 Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Delivered-To: mailing list embperl@perl.apache.org Received: (qmail 6030 invoked by uid 99); 3 Dec 2004 08:40:22 -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:40:22 -0800 Received: from amavis by dolly.pasture.com.au with no-scan (Exim 4.34) id 1Ca8zB-00081o-VW for embperl@perl.apache.org; Fri, 03 Dec 2004 19:40:17 +1100 Received: from mongrel.pasture.com.au ([10.0.128.104]) by dolly.pasture.com.au with esmtp (Exim 4.34) id 1Ca8mG-00080F-M1 for embperl@perl.apache.org; Fri, 03 Dec 2004 19:27:02 +1100 Received: from localhost ([127.0.0.1] helo=mongrel.pasture.com.au) by mongrel.pasture.com.au with esmtp (Exim 4.34) id 1Ca8mG-0002Ru-Gm for embperl@perl.apache.org; Fri, 03 Dec 2004 19:26:56 +1100 Date: Fri, 03 Dec 2004 19:26:56 +1100 Message-ID: <87mzwvdbxr.wl%gus@inodes.org> From: Angus Lees To: Subject: Various Embperl patches from the Debian package [3/3] In-Reply-To: <20041121194050.5EDF110E13C@lnx1.i.ecos.de> References: <20041121194050.5EDF110E13C@lnx1.i.ecos.de> Mail-Followup-To: 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 These compiler warning fixes: --- libembperl-perl-2.0rc2.orig/xs/Embperl/Req/Config/Config.xs +++ libembperl-perl-2.0rc2/xs/Embperl/Req/Config/Config.xs @@ -134,8 +134,8 @@ MODULE = Embperl::Req::Config PACKAGE = Embperl::Req::Config char -mult_field_sep(obj, val=NULL) +mult_field_sep(obj, val=0) Embperl::Req::Config obj char val PREINIT: --- libembperl-perl-2.0rc2.orig/xs/typemap +++ libembperl-perl-2.0rc2/xs/typemap @@ -83,7 +83,7 @@ T_MAGICHASH_SV { MAGIC * mg ; - if (mg = mg_find (SvRV($arg), '~')) + if ((mg = mg_find (SvRV($arg), '~'))) $var = *(($type *)(mg -> mg_ptr)) ; else croak (\"$var is not of type $type\") ; which actually come from these changes to ExtUtils::XSBuilder: --- libextutils-xsbuilder-perl-0.27.orig/XSBuilder/TypeMap.pm +++ libextutils-xsbuilder-perl-0.27/XSBuilder/TypeMap.pm @@ -165,6 +165,9 @@ if ($class =~ /^[INU]V/) { return '0'; } + elsif ($class =~ /^(U_)?CHAR$/) { + return '0'; # xsubpp seems to mangle q{'\0'} + } else { return 'NULL'; } @@ -803,7 +806,7 @@ 'INPUT' => q[ { MAGIC * mg ; - if (mg = mg_find (SvRV($arg), '~')) + if ((mg = mg_find (SvRV($arg), '~'))) $var = *(($type *)(mg -> mg_ptr)) ; else croak (\"$var is not of type $type\") ; --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org For additional commands, e-mail: embperl-help@perl.apache.org