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();
}
|
