From 1ae6ead94905dfee43773cf3b18949c91b33f9d1 Mon Sep 17 00:00:00 2001
From: John Lightsey <lightsey@debian.org>
Date: Fri, 23 Dec 2016 12:35:45 -0500
Subject: Switch most open() calls to three-argument form.

Switch from two-argument form.  Filehandle cloning is still done with the two
argument form for backward compatibility.

Committer:  Get all porting tests to pass.  Increment some $VERSIONs.
Run: ./perl -Ilib regen/mk_invlists.pl; ./perl -Ilib regen/regcharclass.pl

For: RT #130122
---
 dist/Tie-File/t/24_cache_loop.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dist/Tie-File/t/24_cache_loop.t')

diff --git a/dist/Tie-File/t/24_cache_loop.t b/dist/Tie-File/t/24_cache_loop.t
index 0bc66bee2b..42c002c19b 100644
--- a/dist/Tie-File/t/24_cache_loop.t
+++ b/dist/Tie-File/t/24_cache_loop.t
@@ -19,7 +19,7 @@ my $N = 1;
 use Tie::File;
 print "ok $N\n"; $N++;
 
-open F, "> $file" or die $!;
+open F, '>', $file or die $!;
 binmode F;
 print F $data;
 close F;
-- 
cgit v1.2.1