From: David Mitchell <davem@iabyn.com>
Date: Mon, 7 Jun 2010 17:23:43 +0000 (+0100)
Subject: identify a few vars in intrpvar.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16d811d41019c65e82b767b91041c1bebb9b4407;p=p5sagit%2Fp5-mst-13.2.git

identify a few vars in intrpvar.h
---

diff --git a/intrpvar.h b/intrpvar.h
index eb398fc..138895a 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -279,22 +279,22 @@ PERLVARI(Isig_pending, int,0)           /* Number if highest signal pending */
 PERLVAR(Ipsig_pend, int *)		/* per-signal "count" of pending */
 
 /* shortcuts to various I/O objects */
-PERLVAR(Istdingv,	GV *)
-PERLVAR(Istderrgv,	GV *)
+PERLVAR(Istdingv,	GV *)		/*  *STDIN      */
+PERLVAR(Istderrgv,	GV *)		/*  *STDERR     */
 PERLVAR(Idefgv,		GV *)
-PERLVAR(Iargvgv,	GV *)
-PERLVAR(Iargvoutgv,	GV *)
+PERLVAR(Iargvgv,	GV *)		/*  *ARGV       */
+PERLVAR(Iargvoutgv,	GV *)		/*  *ARGVOUT    */
 PERLVAR(Iargvout_stack,	AV *)
 
 /* shortcuts to regexp stuff */
-PERLVAR(Ireplgv,	GV *)
+PERLVAR(Ireplgv,	GV *)		/*  *^R         */
 
 /* shortcuts to misc objects */
-PERLVAR(Ierrgv,		GV *)
+PERLVAR(Ierrgv,		GV *)		/*  *@          */
 
 /* shortcuts to debugging objects */
-PERLVAR(IDBgv,		GV *)
-PERLVAR(IDBline,	GV *)
+PERLVAR(IDBgv,		GV *)		/*  *DB::DB     */
+PERLVAR(IDBline,	GV *)		/*  *DB::line   */
 
 /*
 =for apidoc mn|GV *|PL_DBsub
@@ -318,10 +318,10 @@ variable.  See C<PL_DBsingle>.
 =cut
 */
 
-PERLVAR(IDBsub,		GV *)
-PERLVAR(IDBsingle,	SV *)
-PERLVAR(IDBtrace,	SV *)
-PERLVAR(IDBsignal,	SV *)
+PERLVAR(IDBsub,		GV *)		/*  *DB::sub    */
+PERLVAR(IDBsingle,	SV *)		/*  $DB::single */
+PERLVAR(IDBtrace,	SV *)		/*  $DB::trace  */
+PERLVAR(IDBsignal,	SV *)		/*  $DB::signal */
 PERLVAR(Idbargs,	AV *)		/* args to call listed by caller function */
 
 /* symbol tables */