Fix compiler warning in perl.c

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index a24947c8f3..73e1073c63 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((const SV *)args, PERL_MAGIC_tied);
+	    sv_unmagic((SV *)args, PERL_MAGIC_tied);
     }
     AvREIFY_only(PL_dbargs);
 }