[svn:Module-Build] r13602 - Module-Build/trunk/lib/Module/Build

[dagolden]

Author: dagolden
Date: Tue Nov 24 19:47:09 2009
New Revision: 13602

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

Log:
generate MYMETA if we have META but can't parse it

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 Tue Nov 24 19:47:09 2009
@@ -1767,7 +1767,10 @@
   # use old meta and update prereqs, if possible
   my $mymeta;
   if ( -f $metafile ) {
-    $mymeta = $self->read_metafile( $self->metafile );
+    $mymeta = eval { $self->read_metafile( $self->metafile ) };
+  }
+  # if we read META OK, just update it
+  if ( defined $mymeta ) {
     my $prereqs = $self->_normalize_prereqs;
     for my $t ( keys %$prereqs ) {
         $mymeta->{$t} = $prereqs->{$t};