Switch most open() calls to three-argument form.

[perl5.git] / lib / Tie / Handle / stdhandle.t

diff --git a/lib/Tie/Handle/stdhandle.t b/lib/Tie/Handle/stdhandle.t
index 228004f..d2f04bc 100644 (file)
--- a/lib/Tie/Handle/stdhandle.t
+++ b/lib/Tie/Handle/stdhandle.t
@@ -15,7 +15,7 @@ $f = 'tst';
 
 unlink("afile") if -f "afile";
 
-ok(open($f,"+>afile"), "open +>afile");
+ok(open($f, "+>", "afile"), "open +>, afile");
 ok(open($f, "+<", "afile"), "open +<, afile");
 ok(binmode($f), "binmode")
     or diag("binmode: $!\n");