perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl .gdbinit
Date Thu, 09 Dec 1999 04:44:29 GMT
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
  
  
  

Mime
View raw message