diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-14 10:54:27 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-14 10:54:27 -0400 |
commit | 05b91a7ca0aace044621d8db1e82f4772181d893 (patch) | |
tree | 44bf7c8c284c3363f353553c12046e5ca4de40b7 /player/talking.f90 | |
parent | 14441b7f0d6dd0a101b38a4500fe1f662ae00215 (diff) | |
download | levitating-05b91a7ca0aace044621d8db1e82f4772181d893.tar.gz levitating-05b91a7ca0aace044621d8db1e82f4772181d893.zip |
Fixed binary transfers to maintain file integrity. Added globbed file upload capabilities. Fixed memory overrun issues due to problems parsing ls output.
Diffstat (limited to 'player/talking.f90')
-rw-r--r-- | player/talking.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/player/talking.f90 b/player/talking.f90 index 733f463..5cc3a48 100644 --- a/player/talking.f90 +++ b/player/talking.f90 @@ -23,7 +23,7 @@ contains mod_url = url open(newunit=unit_number, file=filename, status='UNKNOWN', & - access='STREAM', form='FORMATTED', iostat=istatus) + access='STREAM', iostat=istatus) ! form='FORMATTED', if(istatus == 0) then status_code = request_url(mod_url, unit_number, return_type) @@ -69,7 +69,7 @@ contains allocate(character(len=len_trim(url)) :: mod_url) mod_url = url - open(newunit=io, form="formatted", status="scratch", access='stream') + open(newunit=io, status="scratch", access='stream') status_code = request_url(mod_url, io, return_type) close(io) |