In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/16d811d41019c65e82b767b91041c1bebb9b4407?hp=f2ed9b323720c96381a3407a26ac73176799e8ee>
- Log -----------------------------------------------------------------
commit 16d811d41019c65e82b767b91041c1bebb9b4407
Author: David Mitchell <da...@iabyn.com>
Date: Mon Jun 7 18:23:43 2010 +0100
identify a few vars in intrpvar.h
-----------------------------------------------------------------------
Summary of changes:
intrpvar.h | 24 ++++++++++++------------
1 files changed, 12 insertions(+), 12 deletions(-)
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 */
--
Perl5 Master Repository
