(perldb): Change gud-print from just "%e" to "p %e" to

 actually print the value in the GUD buffer.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index b4fdc682e6fa323784999111aa20517221f25de7..a0e22859457b5b37392c7739d9e3eddf81ddc2d0 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -1261,7 +1261,7 @@ and source-file directory for your debugger."
 ;  (gud-def gud-finish "finish"       "\C-f" "Finish executing current function.")
 ;  (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
 ;  (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
-  (gud-def gud-print  "%e"           "\C-p" "Evaluate perl expression at point.")
+  (gud-def gud-print  "p %e"          "\C-p" "Evaluate perl expression at point.")
 
   (setq comint-prompt-regexp "^  DB<+[0-9]+>+ ")
   (setq paragraph-start comint-prompt-regexp)