diff options
| author | Philip M. Gollucci <pgollucci@FreeBSD.org> | 2009-06-18 07:34:59 +0000 |
|---|---|---|
| committer | Philip M. Gollucci <pgollucci@FreeBSD.org> | 2009-06-18 07:34:59 +0000 |
| commit | 509b2232e2f963d70abbf99245cbbdc32a1a674e (patch) | |
| tree | 486eed3f91de4dc98ccc5cfdab7278b21164534a /lang/ruby-perl/files/patch-perl.c | |
| parent | 8c18c62adfa73f42cc02b0a2782df2a273113eed (diff) | |
Notes
Diffstat (limited to 'lang/ruby-perl/files/patch-perl.c')
| -rw-r--r-- | lang/ruby-perl/files/patch-perl.c | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/lang/ruby-perl/files/patch-perl.c b/lang/ruby-perl/files/patch-perl.c new file mode 100644 index 000000000000..8323016d971d --- /dev/null +++ b/lang/ruby-perl/files/patch-perl.c @@ -0,0 +1,47 @@ +--- ./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; |