Croak when setting a tied @DB::args

In commit f8c105437 I stopped the setting of a tied @DB::args from
crashing, by untying the array.  Untying an array automatically with-
out saying anything seems a little too much like action at a distance.
For now, let’s just croak, as we can always change it later once we
decide what should happen.  At least that’s better than crashing.

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 73e1073c63..d50116ba86 100644
--- a/perl.c
+++ b/perl.c
@@ -3890,7 +3890,7 @@ Perl_init_dbargs(pTHX)
 	   "leak" until global destruction.  */
 	av_clear(args);
 	if (SvTIED_mg((const SV *)args, PERL_MAGIC_tied))
-	    sv_unmagic((SV *)args, PERL_MAGIC_tied);
+	    Perl_croak(aTHX_ "Cannot set tied @DB::args");
     }
     AvREIFY_only(PL_dbargs);
 }