optional warning on join(/foo/...) (reworked suggested patch

by Mark-Jason Dominus <mjd@plover.com>)

p4raw-id: //depot/perl@4083

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index 6860b18f3a..0e545752be 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -4981,6 +4981,13 @@ Perl_ck_index(pTHXo_ OP *o)
     return ((CPerlObj*)pPerl)->Perl_ck_index(o);
 }
 
+#undef  Perl_ck_join
+OP *
+Perl_ck_join(pTHXo_ OP *o)
+{
+    return ((CPerlObj*)pPerl)->Perl_ck_join(o);
+}
+
 #undef  Perl_ck_lengthconst
 OP *
 Perl_ck_lengthconst(pTHXo_ OP *o)