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;