Changeset 3852 for src/perl5

Timestamp:

05/25/05 03:49:22 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* SV stringification!

Location:

src/perl5

Files:

• perl5.c (modified) (2 diffs)
• perl5.h (modified) (1 diff)

src/perl5/perl5.c

@@ -1 +1 @@
 #include <perl5.h>
+#include <XSUB.h>
 #include "perlxsi.c"
 
@@ -116 +117 @@
     */
 }
+
+char *
+perl5_SvPV ( SV *sv )
+{
+    char *rv;
+    rv = SvPV_nolen(sv);
+    return rv;
+}

src/perl5/perl5.h

@@ -4 +4 @@
 
 PerlInterpreter * perl5_init ( int argc, char **argv );
+char * perl5_SvPV ( SV * sv );