You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/12/09 05:44:29 UTC
cvs commit: modperl .gdbinit
dougm 99/12/08 20:44:23
Modified: . .gdbinit
Log:
add shortmess, longmess
Revision Changes Path
1.7 +11 -1 modperl/.gdbinit
Index: .gdbinit
===================================================================
RCS file: /home/cvs/modperl/.gdbinit,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- .gdbinit 1999/03/12 15:51:33 1.6
+++ .gdbinit 1999/12/09 04:44:13 1.7
@@ -141,7 +141,7 @@
end
define hvINCval
- set $hv = (((((XPVGV*)(incgv)->sv_any)->xgv_gp))->gp_hv)
+ set $hv = (((((XPVGV*)(PL_incgv)->sv_any)->xgv_gp))->gp_hv)
set $klen = strlen($arg0)
set $sv = *Perl_hv_fetch($hv, $arg0, $klen, 0)
printf "%s = `%s'\n", $arg0, ((XPV*) ($sv)->sv_any )->xpv_pv
@@ -174,5 +174,15 @@
define cluck
set $sv = perl_eval_pv("Carp::cluck(); `tail '$Apache::ErrLog'`", 1)
+ printf "%s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define longmess
+ set $sv = perl_eval_pv("Carp::longmess()", 1)
+ printf "%s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
+end
+
+define shortmess
+ set $sv = perl_eval_pv("Carp::shortmess()", 1)
printf "%s\n", ((XPV*) ($sv)->sv_any )->xpv_pv
end