make the db header files rw in the build process

A band-aid solution until
StrawberryPerl/build-extlibs#49 is fixed

Author: shawnlaffan

lib/Perl/Dist/Strawberry/Step/FilesAndDirs.pm

@@ -171,6 +171,11 @@ sub _do_job {
       $self->boss->message(4, "gonna smartmove '$src' >> '$dst'");
       File::Copy::Recursive::rmove_glob($src, $dst) or warn "rmove_glob failed [$src]>[$dst]: $!"; #just warn when wildcard has no match
     }
+    elsif ($cmd eq 'make_rw') {
+      my ($src) = ($self->boss->resolve_name($args->[0]));
+      $self->boss->message(4, "gonna make '$src' read-write");
+      $self->_unset_ro($src);
+    }
     else {
       #XXX-TODO
       die "FATAL: '$cmd' not implemented";
@@ -189,4 +194,4 @@ sub _check_valid_prefix {
   #XXX-TODO implement or remove
 }
 
-1;
+1;

share/64bit-5.38.0.1.pp

@@ -43,6 +43,8 @@
          { do=>'movefile',   args=>[ '<image_dir>/c/lib/libdb-6.1.a', '<image_dir>/c/lib/libdb.a' ] }, #XXX ugly hack
          { do=>'removefile', args=>[ '<image_dir>/c/bin/gccbug', '<image_dir>/c/bin/ld.gold.exe', '<image_dir>/c/bin/ld.bfd.exe' ] },
          { do=>'removefile_recursive', args=>[ '<image_dir>/c', qr/.+\.la$/i ] }, # https://rt.cpan.org/Public/Bug/Display.html?id=127184
+         { do=>'make_rw', args=>[ '<image_dir>/c/include/db.h' ] },     #  band-aid for ro flag on db headers
+         { do=>'make_rw', args=>[ '<image_dir>/c/include/db_cxx.h' ] }, 
        ],
     },
     ### NEXT STEP ###########################
@@ -456,6 +458,14 @@
         },
     },
     ### NEXT STEP ###########################
+    {
+       plugin => 'Perl::Dist::Strawberry::Step::FilesAndDirs',
+       commands => [
+         { do=>'make_rw', args=>[ '<image_dir>/c/include/db.h' ] },     #  band-aid for ro flag on db headers
+         { do=>'make_rw', args=>[ '<image_dir>/c/include/db_cxx.h' ] },
+       ],
+    },
+    ### NEXT STEP ###########################
     {
         disable => $ENV{SKIP_PDL_STEP}, ### hack
         plugin => 'Perl::Dist::Strawberry::Step::InstallModules',