From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 8 Jun 2000 14:33:04 +0000 (+0000)
Subject: tweak comment about @DB::args
X-Git-Tag: perl-5.7.0~673
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/3ddcf04c0ce8e80ebac79bbf5bc3ba56e0756b06

tweak comment about @DB::args

p4raw-id: //depot/perl@6215
---

diff --git a/av.h b/av.h
index 6b66bfd..4a18430 100644
--- a/av.h
+++ b/av.h
@@ -32,8 +32,8 @@ struct xpvav {
  * real if the array needs to be modified in some way.  Functions that
  * modify fake AVs check both flags to call av_reify() as appropriate.
  *
- * Note that the Perl stack has neither flag set. (Thus, items that go
- * on the stack are never refcounted.)
+ * Note that the Perl stack and @DB::args have neither flag set. (Thus,
+ * items that go on the stack are never refcounted.)
  *
  * These internal details are subject to change any time.  AV
  * manipulations external to perl should not care about any of this.
diff --git a/pp_ctl.c b/pp_ctl.c
index 801f3f1..06bb964 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1555,7 +1555,7 @@ PP(pp_caller)
 	    PL_dbargs = GvAV(gv_AVadd(tmpgv = gv_fetchpv("DB::args", TRUE,
 				SVt_PVAV)));
 	    GvMULTI_on(tmpgv);
-	    AvREAL_off(PL_dbargs);		/* XXX Should be REIFY */
+	    AvREAL_off(PL_dbargs);	/* XXX should be REIFY (see av.h) */
 	}
 
 	if (AvMAX(PL_dbargs) < AvFILLp(ary) + off)