# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1205958042 14400
# Node ID 7e6002d15d4d811b6d7e77b3ce767914db2b3354
# Parent  49810341db91514ef81921f6356a5524754a14fd
octave_env::do_base_pathname: handle rooted relativel names

diff --git a/liboctave/ChangeLog b/liboctave/ChangeLog
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-19  John W. Eaton  <jwe@octave.org>
+
+	* oct-env.cc (octave_env::do_base_pathname): Also handle rooted
+	relative filenames.
+
 2008-03-19  David Bateman  <dbateman@free.fr>
 
 	* Array.cc (assignN): If orig_empty allow assignment like
diff --git a/liboctave/oct-env.cc b/liboctave/oct-env.cc
--- a/liboctave/oct-env.cc
+++ b/liboctave/oct-env.cc
@@ -299,7 +299,7 @@
 std::string
 octave_env::do_base_pathname (const std::string& s) const
 {
-  if (! do_absolute_pathname (s))
+  if (! (do_absolute_pathname (s) || do_rooted_relative_pathname (s)))
     return s;
 
   size_t pos = s.find_last_of (file_ops::dir_sep_chars);