diff options
Diffstat (limited to 'lib/utf8.t')
| -rw-r--r-- | lib/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 06d9a84af9..6b28eae948 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -170,7 +170,7 @@ BANG ); foreach (@tests) { my ($why, $prog, $expect) = @$_; - open P, ">$progfile" or die "Can't open '$progfile': $!"; + open P, ">", $progfile or die "Can't open '$progfile': $!"; binmode(P, ":bytes") if $has_perlio; print P $show, $prog, '; print $b' or die "Print to 'progfile' failed: $!"; |