build perl 5.16.x (#56)

* build perl 5.16.x

* fix patch name

* fix _patch_win32_mkstemp for perl 5.16

* fix indent

* fix indent

* more detail error log

* _patch_make_maker_dirfilesep_518

* drop v5.17.x

.github/workflows/win32.yml

@@ -75,6 +75,7 @@ jobs:
         - "5.18.1"
         - "5.18.0"
 
+        # TODO: fix builds from v5.17.3 to v5.17.11
         # - "5.17.11"
         # - "5.17.10"
         # - "5.17.9"
@@ -88,10 +89,11 @@ jobs:
         # - "5.17.1"
         # - "5.17.0"
 
-        # - "5.16.3"
-        # - "5.16.2"
-        # - "5.16.1"
-        # - "5.16.0"
+        - "5.16.3"
+        - "5.16.2"
+        - "5.16.1"
+        - "5.16.0"
+
         # - "5.14.4"
         # - "5.14.3"
         # - "5.14.2"

scripts/windows/build.pl

@@ -57,16 +57,16 @@ sub run {
             die "download failed: " . $response->status_line;
         }
 
-        open my $fh, ">", File::Spec->catfile($tmpdir, $filename) or die "$!";
+        open my $fh, ">", File::Spec->catfile($tmpdir, $filename) or die "fail to open $filename:$!";
         binmode $fh;
         print $fh $response->content;
         close $fh;
     };
 
     group "extracting..." => sub {
         my $dir = pushd($tmpdir);
-        system("7z", "x", $filename) == 0 or die "Failed to extract gz";
-        system("7z", "x", "perl-$version.tar") == 0 or die "Failed to extract tar";
+        system("7z", "x", $filename) == 0 or die "Failed to extract gz: $!";
+        system("7z", "x", "perl-$version.tar") == 0 or die "Failed to extract tar: $!";
     };
 
     group "patching..." => sub {
@@ -77,7 +77,7 @@ sub run {
     group "build and install Perl" => sub {
         my $dir = pushd(File::Spec->catdir($tmpdir, "perl-$version", "win32"));
         system("gmake", "-f", "GNUMakefile", "install", "INST_TOP=$install_dir", "CCHOME=C:\\MinGW") == 0
-            or die "Failed to install";
+            or die "Failed to install: $!";
     };
 
     group "perl -V" => sub {
@@ -87,7 +87,7 @@ sub run {
     group "archiving" => sub {
         my $dir = pushd($install_dir);
         system("7z", "a", File::Spec->catfile($tmpdir, "perl.zip"), ".") == 0
-            or die "failed to archive";
+            or die "failed to archive: $!";
     };
 }