Changeset 3961 for src/perl5

Timestamp:

05/27/05 05:22:52 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* Perl 5 Array and Hash are now accessible from Perl 6.

Files:

• src/perl5/perl5.c (modified) (1 diff)

src/perl5/perl5.c

@@ -279 +279 @@
     PUTBACK;
 
+    if (SvTRUE(ERRSV)) {
+        STRLEN n_a;
+        fprintf(stderr, "Error eval perl5: \"%s\"\n*** %s\n", code, SvPV(ERRSV,n_a));
+    }
 
     FREETMPS;