X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/fce59cd44e0183e8fdb037f8c269f9a15e6cf2f7..107c452c64d52e8f29626debd8bdd4c5bc9a0e47:/util.c

diff --git a/util.c b/util.c
index 1e3eea1..aa2ae55 100644
--- a/util.c
+++ b/util.c
@@ -6543,7 +6543,8 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
     SV * const dbsv = GvSVn(PL_DBsub);
     const bool save_taint = PL_tainted;
 
-    /* We do not care about using sv to call CV;
+    /* When we are called from pp_goto (svp is null),
+     * we do not care about using dbsv to call CV;
      * it's for informational purposes only.
      */