TestSupport::open_unique_stashfile: Provide a RDWR filehandle

The caller can then rewind and reread it if they feel like.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 2b67e32de88c3b3fbc5df43e1f31fcdb835ab39b..7b9d8159c113b6ae3031b6c55d235da39c39fe80 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -1005,7 +1005,7 @@ sub open_unique_stashfile ($) {
     my $dh;
     for (;;) {
         my $df= $$leafref;
-        $dh= new IO::File "$stash/$df", O_WRONLY|O_EXCL|O_CREAT;
+        $dh= new IO::File "$stash/$df", O_RDWR|O_EXCL|O_CREAT;
         last if $dh;
         die "$df $!" unless $!==&EEXIST;
         next_unique_name $leafref;