[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.556,1.557

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

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

Modified Files:
	Base.pm 
Log Message:
Add an 'or die(...)' for an open()

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.556
retrieving revision 1.557
diff -u -d -r1.556 -r1.557
--- Base.pm	9 Mar 2006 10:28:00 -0000	1.556
+++ Base.pm	9 Mar 2006 16:22:50 -0000	1.557
@@ -2385,7 +2385,7 @@
 			 ($path2root,
 			  $self->installdirs eq 'core' ? () : qw(site) ) );
 
-    my $fh = IO::File->new($infile);
+    my $fh = IO::File->new($infile) or die "Can't read $infile: $!";
     my $abstract = Module::Build::PodParser->new(fh => $fh)->get_abstract();
 
     my $title = join( '::', (@dirs, $name) );