Revert "Fix GH Issue #19472: read warnings from open($fh,">",\(my $x))"

This reverts commit 8b03aeb95ab72abdb2fa40f2d1196ce42f34708d.

This is causing BBC breakage, and its unimport and grey zone enough that
we can pick it up in 5.37 when we have more time to deal with it.

1 files changed, 0 insertions, 10 deletions

diff --git a/doio.c b/doio.c
index 4009545ffc..87790da137 100644
--- a/doio.c
+++ b/doio.c
@@ -639,16 +639,6 @@ Perl_do_open6(pTHX_ GV *gv, const char *oname, STRLEN len,
                 goto say_false;
             }
 #endif /* USE_STDIO */
-            if (SvROK(*svp) && !sv_isobject(*svp)) {
-                /* if they pass in a reference and its not an object
-                 * and the reference is to undef, "autovivify" it to
-                 * the empty string. See GH Issue #19472
-                 */
-                SV *sv= SvRV(*svp);
-                if (!SvOK(sv) && !SvREADONLY(sv))
-                    sv_setpvs(MUTABLE_SV(sv),"");
-            }
-
             p = (SvOK(*svp) || SvGMAGICAL(*svp)) ? SvPV(*svp, nlen) : NULL;
 
             if (p && !IS_SAFE_PATHNAME(p, nlen, "open")) {