[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.475,1.476

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4959

Modified Files:
	Base.pm 
Log Message:
Die with a better error message (was "Can't call method "version" on
an undefined value") when the 'dist_version_from' file can't be found.


Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.475
retrieving revision 1.476
diff -u -d -r1.475 -r1.476
--- Base.pm	11 Aug 2005 11:58:30 -0000	1.475
+++ Base.pm	28 Aug 2005 01:31:13 -0000	1.476
@@ -733,7 +733,8 @@
 
   if ( $p->{dist_version_from} ) {
     my $version_from = File::Spec->catfile( split( qr{/}, $p->{dist_version_from} ) );
-    my $pm_info = Module::Build::ModuleInfo->new_from_file( $version_from );
+    my $pm_info = Module::Build::ModuleInfo->new_from_file( $version_from )
+      or die "Can't find file $version_from to determine version";
     $p->{dist_version} = $pm_info->version();
   }