This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
New XS::APItest's for sv_peek based on my DDumper work
[perl5.git] / ext / XS / APItest / APItest.xs
index 99af4a0..b81e86d 100644 (file)
@@ -852,6 +852,14 @@ rmagical_flags(sv)
         XSRETURN(3);
 
 void
+DPeek (sv)
+    SV   *sv
+
+  PPCODE:
+    ST (0) = newSVpv (Perl_sv_peek (sv), 0);
+    XSRETURN (1);
+
+void
 BEGIN()
     CODE:
        sv_inc(get_sv("XS::APItest::BEGIN_called", GV_ADD|GV_ADDMULTI));