1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 736a055355..5f85fd7afb 100644
--- a/perl.c
+++ b/perl.c
@@ -3848,7 +3848,7 @@ Perl_init_dbargs(pTHX)
 	   "leak" until global destruction.  */
 	av_clear(args);
     }
-    AvREAL_off(PL_dbargs);	/* XXX should be REIFY (see av.h) */
+    AvREIFY_only(PL_dbargs);
 }
 
 void