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;