This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
util.c:get_db_sub: correct comment
[perl5.git] / util.c
diff --git a/util.c b/util.c
index 1e3eea1..aa2ae55 100644 (file)
--- 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.
      */