Turn p5 undef into Nil.

sorear · Jan 18, 2012 · 9856167 · 9856167
1 parent 0f93f81
commit 9856167
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/lib/Perl5Interpreter.cs b/lib/Perl5Interpreter.cs
@@ -37,6 +37,9 @@ public class Perl5Interpreter : IForeignInterpreter {
     [DllImport("obj/p5embed.so", EntryPoint="p5embed_SvPOKp")]
     public static extern int SvPOKp(IntPtr sv);
 
+    [DllImport("obj/p5embed.so", EntryPoint="p5embed_SvOK")]
+    public static extern int SvOK(IntPtr sv);
+
     [DllImport("obj/p5embed.so", EntryPoint="p5embed_newSVpvn")]
     public static extern IntPtr newSVpvn(IntPtr s,int length);
 
@@ -64,6 +67,10 @@ int argument_n
             //TODO: check - cargo culted
             return Kernel.NilP.mo.typeVar;
         }
+        if (SvOK(sv) == 0) {
+            return Kernel.NilP.mo.typeVar;
+        }
+
         if (SvIOKp(sv) != 0) {
             return Builtins.MakeInt(SvIV(sv));
         } else if (SvNOKp(sv) != 0) {

diff --git a/lib/p5embed.c b/lib/p5embed.c
@@ -116,6 +116,9 @@ int p5embed_SvNOKp(SV* sv) {
 int p5embed_SvPOKp(SV* sv) {
     return SvPOKp(sv);
 }
+int p5embed_SvOK(SV* sv) {
+    return SvOK(sv);
+}
 
 int p5embed_SvIV(SV* sv) {
     return SvIV(sv);

diff --git a/t/spectest_p5.data b/t/spectest_p5.data
@@ -1,3 +1,4 @@
 S01-perl-5-integration/subs.t
 S01-perl-5-integration/strings.t
 S01-perl-5-integration/context.t
+S01-perl-5-integration/undef.t