Changeset 3925 for src/perl5

Timestamp:

05/27/05 00:14:36 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* Pugs's eval/apply exported to C space.

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -196 +196 @@
 
 SV *
+perl5_get_sv(const char *name)
+{
+    return (get_sv(name, 1));
+}
+
+SV *
 perl5_eval(char *code, SV *env, int cxt)
 {

src/perl5/perl5.h

@@ -14 +14 @@
 bool perl5_can(SV *inv, char *subname);
 SV * perl5_eval(char *code, SV *env, int cxt);
+SV * perl5_get_sv ( const char *name );