diff options
Diffstat (limited to 'player/instructions.f90')
| -rw-r--r-- | player/instructions.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/player/instructions.f90 b/player/instructions.f90 index 3b2f0de..4669f18 100644 --- a/player/instructions.f90 +++ b/player/instructions.f90 @@ -331,6 +331,12 @@ contains end if found(3) = get_task_string(j, i, "directory", filename) + ! If no directory is specified, do it in the current directory + if(.not. found(3)) then + filename = '.' + found(3) = .true. + end if + found(4) = get_task_logical(j, i, "destructive", destructive) if(.not. found(4)) then @@ -351,6 +357,12 @@ contains found(1) = get_task_string(j, i, "command", cmd) found(2) = get_task_string(j, i, "directory", filename) + ! If no directory is specified, do it in the current directory + if(.not. found(2)) then + filename = '.' + found(2) = .true. + end if + if(.not. all(found,1)) then success = .false. else |