Mercurial > hg > octave-nkf
diff scripts/testfun/test.m @ 6365:ccdb8ffbb994
[project @ 2007-02-27 19:43:35 by jwe]
author | jwe |
---|---|
date | Tue, 27 Feb 2007 19:43:36 +0000 |
parents | c507206c45bc |
children | 76a1a953533d |
line wrap: on
line diff
--- a/scripts/testfun/test.m +++ b/scripts/testfun/test.m @@ -154,8 +154,12 @@ __file = file_in_loadpath ([__name, ".cc"], "all"); endif if (iscell (__file)) - ## If repeats, return first in path. - __file = __file{1}; + ## If repeats, return first in path. + if (isempty (__file)) + __file = ""; + else + __file = __file{1}; + endif endif if (isempty (__file)) if (__grabdemo)