You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2009/12/01 03:12:50 UTC
svn commit: r885651 -
/lucene/lucy/trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm
Author: marvin
Date: Tue Dec 1 02:12:43 2009
New Revision: 885651
URL: http://svn.apache.org/viewvc?rev=885651&view=rev
Log:
Fix an latent syntax error in an as-yet-unused typemap.
Modified:
lucene/lucy/trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm
Modified: lucene/lucy/trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm?rev=885651&r1=885650&r2=885651&view=diff
==============================================================================
--- lucene/lucy/trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm (original)
+++ lucene/lucy/trunk/boilerplater/lib/Boilerplater/Binding/Perl/TypeMap.pm Tue Dec 1 02:12:43 2009
@@ -236,12 +236,12 @@
sub _typemap_output_start {
my ( $big_signed_convert, $big_unsigned_convert );
if ( $Config{ivsize} == 8 ) {
- $big_signed_convert = 'sv_setiv((IV)$arg);';
- $big_unsigned_convert = 'sv_setuv((UV)$arg);';
+ $big_signed_convert = 'sv_setiv($arg, (IV)$var);';
+ $big_unsigned_convert = 'sv_setuv($arg, (UV)$var);';
}
else {
- $big_signed_convert = 'sv_setnv((NV)$arg);';
- $big_unsigned_convert = 'sv_setnv((NV)$arg);';
+ $big_signed_convert = 'sv_setnv($arg, (NV)$var);';
+ $big_unsigned_convert = 'sv_setnv($arg, (NV)$var);';
}
return <<END_STUFF;