Angus, Thanks for your patches. They will be in the next release (which is hopefully 2.0 final)
Gerald --------------------------------------------------------------------------- Gerald Richter ecos electronic communication services gmbh IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122 WWW: http://www.ecos.de/ Fax: +49 6133 939-333 --------------------------------------------------------------------------- ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info --------------------------------------------------------------------------- > -----Original Message----- > From: Angus Lees [mailto:[EMAIL PROTECTED] > Sent: Friday, December 03, 2004 9:27 AM > To: [EMAIL PROTECTED] > Subject: Various Embperl patches from the Debian package [3/3] > > 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: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
