- fix/simplify META.yml generation - we now generate META.yml at

  Makefile.PL time, since trying to work with EU::MM to generate a 
  custom META.yml was a waste.

Changes

@@ -1361,6 +1361,9 @@ Revision history for Perl extension Imager.
 - make win32.c const happy
 - make raw.c C89 compliant
 - added version/level to the API function table structure
+- fix/simplify META.yml generation - we now generate META.yml at
+  Makefile.PL time, since trying to work with EU::MM to generate a 
+  custom META.yml was a waste.
 
 =================================================================
 

CountColor/Makefile.PL

@@ -1,5 +1,4 @@
 use ExtUtils::MakeMaker;
-require "../metafile.pl";
 
 my %opts = 
   (

DynTest/Makefile.PL

@@ -1,5 +1,4 @@
 use ExtUtils::MakeMaker;
-require "../metafile.pl";
 
 my %opts = 
   (

Flines/Makefile.PL

@@ -1,5 +1,4 @@
 use ExtUtils::MakeMaker;
-require "../metafile.pl";
 
 my %opts = 
   (

MANIFEST

@@ -125,7 +125,6 @@ log.c
 log.h
 map.c
 maskimg.c
-metafile.pl     Common META.yml generation
 palimg.c
 plug.h
 png.c

Makefile.PL

@@ -6,7 +6,6 @@ use Config;
 use File::Spec;
 use Getopt::Long;
 use vars qw(%Recommends);
-require "metafile.pl";
 use ExtUtils::Manifest qw(maniread);
 use vars qw(%formats $VERBOSE $INCPATH $LIBPATH $NOLOG $DEBUG_MALLOC $MANUAL $CFLAGS $LFLAGS $DFLAGS);
 
@@ -168,11 +167,17 @@ if ($ExtUtils::MakeMaker::VERSION > 6.06) {
   $opts{AUTHOR} = 'Tony Cook <tony@imager.perl.org>, Arnar M. Hrafnkelsson';
   $opts{ABSTRACT} = 'Perl extension for Generating 24 bit Images';
 }
+if ($ExtUtils::MakeMaker::VERSION > 6.10) {
+  $opts{NO_META} = 1;
+}
 
 make_imconfig(\@defines);
 
 if ($VERBOSE) { print Dumper(\%opts); }
 mkdir('testout',0777); # since we cannot include it in the archive.
+
+make_metafile(\%opts);
+
 WriteMakefile(%opts);
 
 exit;
@@ -815,3 +820,49 @@ sub gen_PM {
 
   \%pm;
 }
+
+sub make_metafile {
+  my ($opts) = @_;
+
+  # extract the version
+  my $version = MM->parse_version($opts->{VERSION_FROM})
+    or die "Could not extract version number from $opts->{VERSION_FROM}\n";
+
+  my $meta = <<YAML;
+--- #YAML:1.0
+name: $opts->{NAME}
+version: $version
+version_from: $opts->{VERSION_FROM}
+author: $opts->{AUTHOR}
+abstract: $opts->{ABSTRACT}
+installdirs: site
+YAML
+  if (keys %{$Recommends{$opts->{NAME}}}) {
+    $meta .= "recommends:\n";
+    while (my ($module, $version) = each %{$Recommends{$opts->{NAME}}}) {
+      $meta .= "  $module: $version\n";
+    }
+  }
+  $meta .= <<YAML;
+license: perl
+dynamic_config: 1
+distribution_type: module
+generated_by: $opts->{NAME} version $version
+YAML
+  my $save_meta;
+  if (open META, "< META.yml") {
+    my $old_meta = do { local $/; <META> };
+    close META;
+
+    $save_meta = $old_meta ne $meta;
+  }
+  else {
+    ++$save_meta;
+  }
+  if ($save_meta) {
+    print "Updating META.yml\n";
+    open META, "> META.yml" or die "Cannot create META.yml: $!";
+    print META $meta;
+    close META;
+  }
+}

Mandelbrot/Makefile.PL

@@ -1,5 +1,4 @@
 use ExtUtils::MakeMaker;
-require "../metafile.pl";
 
 my %opts = 
   (

TODO

@@ -8,11 +8,11 @@ not commitments.
 
 BEFORE 0.48:
 
-scale() fixes/docs, Imager::Transformations going over.
+scale() fixes/docs, Imager::Transformations going over. (done)
 
-do some more malloc checks
+do some more malloc checks (done)
 
-scan $Config{libspath} for directories if we can.
+scan $Config{libspath} for directories if we can. (done)
 
 0.47: