1 files changed, 0 insertions, 47 deletions
diff --git a/lang/ruby-perl/files/patch-perl.c b/lang/ruby-perl/files/patch-perl.c
deleted file mode 100644
index 8323016d971d..000000000000
--- a/lang/ruby-perl/files/patch-perl.c
+++ /dev/null
@@ -1,47 +0,0 @@
---- ./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;