new perldelta for 5.29.4

[perl5.git] / win32 / config_h.PL

diff --git a/win32/config_h.PL b/win32/config_h.PL
index 89c7a20..e755007 100644 (file)
--- a/win32/config_h.PL
+++ b/win32/config_h.PL
@@ -26,7 +26,7 @@ $opt{CORE_DIR} ||= '../lib/CORE';
 
 warn "Writing $opt{CONFIG_H}\n";
 
-open(SH,"<$name") || die "Cannot open $name:$!";
+open(SH, "<", $name) || die "Cannot open $name:$!";
 while (<SH>)
  {
   last if /^\s*sed/;
@@ -50,7 +50,7 @@ eval $str;
 
 die "$str:$@" if $@;
 
-open(H,">$file.new") || die "Cannot open $file.new:$!";
+open(H, ">", "$file.new") || die "Cannot open $file.new:$!";
 binmode(H);
 while (<SH>)
  {