Packaging

bump_version

@@ -4,6 +4,8 @@ use 5.010;
 use strict;
 use warnings FATAL => 'all';
 use autodie;
+use English qw( -no_match_vars );
+use IPC::Cmd;
 
 chomp(my $LATEST = qx(grep '^[0-9]' r2/Changes | head -1 | awk '{print \$1}'));
 
@@ -26,3 +28,9 @@ for my $versioned_file (@versioned_files) {
     open my $out, '>', $versioned_file;
     print $out $file;
 } ## end for my $versioned_file (@versioned_files)
+
+chdir 'r2';
+die qq{"perl Build.PL" failed: $!}
+        if not IPC::Cmd::run( command => [$EXECUTABLE_NAME, 'Build.PL'], verbose => 1 );
+die qq{"./Build distmeta" failed: $!}
+        if not IPC::Cmd::run( command => ['./Build', 'distmeta'], verbose => 1 );

r2/Changes

@@ -15,6 +15,7 @@
 
 Revision history for Marpa::R2
 
+0.001_032 Mon Apr  2 08:25:13 PDT 2012
 0.001_031 Fri Mar 30 22:42:25 PDT 2012
 0.001_030 Sun Mar 25 20:10:31 PDT 2012
 0.001_029 Thu Mar 22 16:16:08 PDT 2012

r2/inc/Marpa/R2/Build_Me.pm

@@ -307,9 +307,15 @@ sub do_libmarpa {
                 or die "print failed: $ERRNO";
         }
     } ## end else [ if ( not -r 'stamp-h1' ) ]
+
     if ( $self->verbose() ) {
         print "Making libmarpa: Start\n" or die "Cannot print: $ERRNO";
     }
+
+    # If 'touch' does not exist, the automake-generated Makefile
+    # will fail anyway.
+    die qq{"touch api.info" failed: $!}
+        if not IPC::Cmd::run( command => ['touch', 'api.info'], verbose => 1 );
     die 'Making libmarpa: make Failure'
         if not IPC::Cmd::run( command => ['make'], verbose => 1 );