Changeset 392 for trunk

Timestamp:

02/10/09 10:34:16 (15 years ago)

Author:

smasson

Message:

change isafile according to changeset:391

File:

• trunk/SRC/Utilities/isafile.pro (modified) (1 diff)

trunk/SRC/Utilities/isafile.pro

@@ -90 +90 @@
 ; should we redefine dirname?
   if fileout NE dirname+'/'+basename AND dirname EQ '.' AND NOT keyword_set(iodirectory) then dirname = ''
-  if keyword_set(iodirectory) AND dirname EQ '.' then dirname = iodirectory
+  if keyword_set(iodirectory) AND dirname EQ '.' then dirname = ['.', iodirectory]
 ;
-  if keyword_set(new) then return, dirname + path_sep() + basename
+  if keyword_set(new) then return, dirname[n_elements(dirname)-1] + path_sep() + basename
 ;
   fileout = find(basename, iodirectory = dirname $