# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1389124811 18000
# Node ID 0806c9e75e08a7a0f09a7f7c668004f5a6578c4d
# Parent  faf32a725693e7a73f67d6ebd7f0f2ea5201e887
strip .m when setting or clearing breakpoints (bug #41126)

* debug.cc (get_user_code): If name ends in .m, strip it.

diff -r faf32a725693 -r 0806c9e75e08 libinterp/corefcn/debug.cc
--- a/libinterp/corefcn/debug.cc	Tue Jan 07 11:44:17 2014 -0500
+++ b/libinterp/corefcn/debug.cc	Tue Jan 07 15:00:11 2014 -0500
@@ -178,7 +178,14 @@
     dbg_fcn = octave_call_stack::caller_user_code ();
   else
     {
-      octave_value fcn = symbol_table::find_function (fname);
+      std::string name = fname;
+
+      size_t name_len = name.length ();
+
+      if (! name.empty () && name_len > 2 && name.substr (name_len-2) == ".m")
+        name = name.substr (0, name_len-2);
+
+      octave_value fcn = symbol_table::find_function (name);
 
       if (fcn.is_defined () && fcn.is_user_code ())
         dbg_fcn = fcn.user_code_value ();