[svn:Module-Build] r6654 - in Module-Build/trunk: . lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Sat Jul 15 06:25:42 2006
New Revision: 6654

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
Fix 'version' entries in META.yml

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Sat Jul 15 06:25:42 2006
@@ -1,5 +1,10 @@
 Revision history for Perl extension Module::Build.
 
+0.2803
+
+ - The META.yml file in the last release was all screwed up, so the
+   distribution wasn't indexed properly.  Fixed in this release.
+
 0.2802  Fri Jul 14 22:40:34 CDT 2006
 
  - Added reliance on version.pm, which means we should deal much

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Sat Jul 15 06:25:42 2006
@@ -3211,6 +3211,7 @@
     die "ERROR: Missing required field '$_' for META.yml\n"
       unless defined($node->{$name}) && length($node->{$name});
   }
+  $node->{version} = $node->{version}->stringify;
 
   if (defined( $self->license ) &&
       defined( my $url = $self->valid_licenses->{ $self->license } )) {
@@ -3228,7 +3229,7 @@
   }
   my $pkgs = eval { $self->find_dist_packages };
   if ($@) {
-    $self->log_warn("WARNING: Possible missing or corrupt 'MANIFEST' file.\n" .
+    $self->log_warn("[EMAIL PROTECTED]: Possible missing or corrupt 'MANIFEST' 
file.\n" .
                    "Nothing to enter for 'provides' field in META.yml\n");
   } else {
     $node->{provides} = $pkgs if %$pkgs;
@@ -3379,6 +3380,11 @@
     }
   }
 
+  # Stringify versions
+  for (grep exists $_->{version}, values %prime) {
+    $_->{version} = $_->{version}->stringify;
+  }
+
   return \%prime;
 }