This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_ctl.c:caller: Remove obsolete comment
authorFather Chrysostomos <sprout@cpan.org>
Fri, 14 Sep 2012 13:28:21 +0000 (06:28 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 15 Sep 2012 05:29:46 +0000 (22:29 -0700)
This was added in f3aa04c29a, but stopped being relevant in
d5ec2987912.

pp_ctl.c

index b8c0842..ce88220 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1896,9 +1896,6 @@ PP(pp_caller)
        Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*);
        AvFILLp(PL_dbargs) = AvFILLp(ary) + off;
     }
-    /* XXX only hints propagated via op_private are currently
-     * visible (others are not easily accessible, since they
-     * use the global PL_hints) */
     mPUSHi(CopHINTS_get(cx->blk_oldcop));
     {
        SV * mask ;