[Module-build-general] Base.pm_0.19_04: $VERSION + err msg

[Roland B. <rol...@ff...>]

Just 2 minor changes:

1)$VERSION added
2)a more informative error message

Roland


--- Base.pm_0.19_04        Fri Aug 01 17:04:20 2003
+++ Base.pm        Sat Aug 16 19:43:46 2003
@@ -1,6 +1,8 @@
 package Module::Build::Base;
 
 use strict;
+use vars qw($VERSION);
+$VERSION = '0.01';
 BEGIN { require 5.00503 }
 use Config;
 use File::Copy ();
@@ -471,7 +473,7 @@
   my $fh = IO::File->new("< $file") or die "Can't read $file: $!";
   
   $ph->{disk} = eval do {local $/; <$fh>};
-  die $@ if $@;
+  die sprintf("ERROR in %s line %s: $@", __FILE__, __LINE__) if $@;
 }
 
 sub add_to_cleanup {


-- 
Roland Bauer
http://www.fff.at/contact/