forked from Lainports/freebsd-ports
509b2232e2
- Don't mix PORTDOCS/PORTEXAMPLES in pkg-plist or Makefile - Patch for recent perls (PL_na is dead) [will send patch upstream]
47 lines
1 KiB
C
47 lines
1 KiB
C
--- ./perl.c.orig 2009-06-18 03:30:23.290690879 -0400
|
|
+++ ./perl.c 2009-06-18 03:30:13.000000000 -0400
|
|
@@ -296,7 +296,7 @@
|
|
|
|
ret = perl_eval_pv(RSTRING(pv)->ptr, Qfalse);
|
|
if (SvTRUE(ERRSV)) {
|
|
- rb_raise(ePerlError, SvPVx(ERRSV, PL_na));
|
|
+ rb_raise(ePerlError, SvPVx_nolen(ERRSV));
|
|
}
|
|
|
|
return perl__Sv2Object(ret);
|
|
@@ -352,7 +352,7 @@
|
|
LEAVE;
|
|
|
|
if (SvTRUE(ERRSV)) {
|
|
- rb_raise(ePerlError, SvPVx(ERRSV, PL_na));
|
|
+ rb_raise(ePerlError, SvPVx_nolen(ERRSV));
|
|
}
|
|
|
|
return ret;
|
|
@@ -394,7 +394,7 @@
|
|
LEAVE;
|
|
|
|
if (SvTRUE(ERRSV)) {
|
|
- rb_raise(ePerlError, SvPVx(ERRSV, PL_na));
|
|
+ rb_raise(ePerlError, SvPVx_nolen(ERRSV));
|
|
}
|
|
|
|
return ret;
|
|
@@ -453,7 +453,7 @@
|
|
LEAVE;
|
|
|
|
if (SvTRUE(ERRSV)) {
|
|
- rb_raise(ePerlError, SvPVx(ERRSV, PL_na));
|
|
+ rb_raise(ePerlError, SvPVx_nolen(ERRSV));
|
|
}
|
|
|
|
return ret;
|
|
@@ -490,7 +490,7 @@
|
|
LEAVE;
|
|
|
|
if (SvTRUE(ERRSV)) {
|
|
- rb_raise(ePerlError, SvPVx(ERRSV, PL_na));
|
|
+ rb_raise(ePerlError, SvPVx_nolen(ERRSV));
|
|
}
|
|
|
|
return ret;
|