diff options
Diffstat (limited to 'dist/Tie-File/t/20_cache_full.t')
| -rw-r--r-- | dist/Tie-File/t/20_cache_full.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Tie-File/t/20_cache_full.t b/dist/Tie-File/t/20_cache_full.t index 8b3bf0b2e0..bd4d6a760f 100644 --- a/dist/Tie-File/t/20_cache_full.t +++ b/dist/Tie-File/t/20_cache_full.t @@ -14,7 +14,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; @@ -192,7 +192,7 @@ check(); sub init_file { my $data = shift; - open F, "> $file" or die $!; + open F, '>', $file or die $!; binmode F; print F $data; close F; |