# New Ticket Created by  "Steve Peters" 
# Please include the string:  [perl #42662]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=42662 >


The const char * f below causes failures when compiled with C++.  The
patch below switches it to a plain char *.

Steve Peters

Index: src/ops/debug.ops
===================================================================
--- src/ops/debug.ops   (revision 18296)
+++ src/ops/debug.ops   (working copy)
@@ -61,7 +61,7 @@
 =cut

 op debug_load(inconst STR) :base_debug {
-    const char *f;
+    char *f;

     if (!(interp->pdb->state & PDB_BREAK)) {
         f = string_to_cstring(interp,($1));

Reply via email to