aboutsummaryrefslogtreecommitdiff
path: root/player
diff options
context:
space:
mode:
Diffstat (limited to 'player')
-rw-r--r--player/instructions.f9012
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