# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1420672321 18000
# Node ID e2b570e7224b3aa62445e1efde721a00187876fe
# Parent  827394ba8eb2a13c08b81bdc7aa29e08ef22423d
avoid indexing before beginning of string

* load-path.cc (load_path::do_find_matching_dirs): Avoid indexing
before beginning of string.

diff -r 827394ba8eb2 -r e2b570e7224b libinterp/corefcn/load-path.cc
--- a/libinterp/corefcn/load-path.cc	Wed Jan 07 18:11:05 2015 -0500
+++ b/libinterp/corefcn/load-path.cc	Wed Jan 07 18:12:01 2015 -0500
@@ -1430,7 +1430,7 @@
 
           size_t dir_len = dir.length ();
 
-          if (dname_len >= dir_len
+          if (dname_len > dir_len
               && file_ops::is_dir_sep (dname[dname_len - dir_len - 1])
               && dir.compare (dname.substr (dname_len - dir_len)) == 0)
             {