Changeset 3911 for src/perl5

Timestamp:

05/26/05 14:38:41 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* castFail from SV no longer segfaults.
* all save one from method.t passes.

Files:

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

src/perl5/perl5.c

@@ -137 +137 @@
 perl5_SvPtr ( SV *sv )
 {
+    if (!sv_isa(sv, "pugs")) {
+        return NULL;
+    }
     IV tmp = SvIV((SV*)SvRV(sv));
     return((void *)tmp);