Mercurial > hg > octave-lyh

diff scripts/miscellaneous/fileparts.m @ 4424:ab82d3a27d96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-06-13 14:35:25 by jwe]
author jwe
date Fri, 13 Jun 2003 14:35:25 +0000
parents b4661459eff7
children a3a306af7292
line wrap: on
line diff
--- a/scripts/miscellaneous/fileparts.m
+++ b/scripts/miscellaneous/fileparts.m
@@ -31,13 +31,13 @@
       es = rindex (filename, ".");
       directory = filename(1:ds-1);
       name = filename(ds+1:es-1);
-      extension = filename(es+1:end);
+      extension = filename(es:end);
       version = "";
     else
-      error ("filesep: expecting filename argument to be a string");
+      error ("fileparts: expecting filename argument to be a string");
     endif
   else
-    usage ("filesep (filename)");
+    usage ("fileparts (filename)");
   endif
 
 endfunction