From ec94eed4ada071afa182b34d1193e9834412699f Mon Sep 17 00:00:00 2001
From: Randy Sims <randys@thepierianspring.org>
Date: Tue, 7 Mar 2006 00:03:47 +0000
Subject: [PATCH] Fixed warning message where we were printing the wrong field
 name. [Chris Dolan]

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@5805 50811bd7-b8ce-0310-adc1-d9db26280581
---
 Changes                  | 3 +++
 lib/Module/Build/Base.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 483f55c4..6407738c 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,9 @@ Revision history for Perl extension Module::Build.
 
 0.27_09
 
+ - Fixed warning message where we were printing the wrong field names.
+   [Chris Dolan]
+
  - Added a 'testpodcoverage' action that runs a POD coverage check for
    all modules in the distribution. [Yanick Champoux]
 
diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
index bb416b0b..be7439e5 100644
--- a/lib/Module/Build/Base.pm
+++ b/lib/Module/Build/Base.pm
@@ -3077,7 +3077,7 @@ sub prepare_metadata {
   foreach (qw(dist_name dist_version dist_author dist_abstract license)) {
     (my $name = $_) =~ s/^dist_//;
     $node->{$name} = $self->$_();
-    die "ERROR: Missing required field '$name' for META.yml\n"
+    die "ERROR: Missing required field '$_' for META.yml\n"
       unless defined($node->{$name}) && length($node->{$name});
   }