Perl5 NV values are converted.

sorear · Oct 1, 2011 · f20f832 · f20f832
1 parent 18b719f
commit f20f832
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 1 deletion.
diff --git a/examples/perl5.pl b/examples/perl5.pl
@@ -20,4 +20,5 @@ sub new {
 my $foo = eval(:lang<perl5>,'Foo->new');
 $foo.baz(eval(:lang<perl5>,'"Perl hacker"'));
 say eval(:lang<perl5>,"125");
+say eval(:lang<perl5>,"13.5");
 
diff --git a/lib/Perl5Interpreter.cs b/lib/Perl5Interpreter.cs
@@ -15,6 +15,9 @@ public class Perl5Interpreter : IForeignInterpreter {
     [DllImport("obj/p5embed.so", EntryPoint="p5embed_SvIV")]
     public static extern int SvIV(IntPtr sv);
 
+    [DllImport("obj/p5embed.so", EntryPoint="p5embed_SvNV")]
+    public static extern double SvNV(IntPtr sv);
+
     [DllImport("obj/p5embed.so", EntryPoint="p5embed_SvIOKp")]
     public static extern int SvIOKp(IntPtr sv);
 
@@ -27,6 +30,8 @@ public class Perl5Interpreter : IForeignInterpreter {
     public static Variable SVToVariable(IntPtr sv) {
         if (SvIOKp(sv) != 0) {
             return Builtins.MakeInt(SvIV(sv));
+        } else if (SvNOKp(sv) != 0) {
+            return Builtins.MakeFloat(SvNV(sv));
         } else {
             return new SVVariable(sv);
         }

diff --git a/lib/p5embed.c b/lib/p5embed.c
@@ -40,7 +40,7 @@ void p5embed_dispose()
   PERL_SYS_TERM();
 }
 
-void p5method_call(char* name,int* args,int n) {
+void p5method_call(char* name,SV** args,int n) {
   dSP;
 
 
@@ -73,3 +73,6 @@ int p5embed_SvPOKp(SV* sv) {
 int p5embed_SvIV(SV* sv) {
     return SvIV(sv);
 }
+double p5embed_SvNV(SV* sv) {
+    return SvNV(sv);
+}