This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tweak comment about @DB::args
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 8 Jun 2000 14:33:04 +0000 (14:33 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 8 Jun 2000 14:33:04 +0000 (14:33 +0000)
p4raw-id: //depot/perl@6215

av.h
pp_ctl.c

diff --git a/av.h b/av.h
index 6b66bfd..4a18430 100644 (file)
--- 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.
index 801f3f1..06bb964 100644 (file)
--- 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)