[Bps-public-commit] r16997 - Locale-Maketext-Lexicon/trunk/lib/Locale/Maketext

[clint at bestpractical.com]

Author: clint
Date: Sat Nov 22 16:07:30 2008
New Revision: 16997

Modified:
   Locale-Maketext-Lexicon/trunk/lib/Locale/Maketext/Extract.pm

Log:
Added an error message to Extract.pm to make it more obvious which file has not been found

Modified: Locale-Maketext-Lexicon/trunk/lib/Locale/Maketext/Extract.pm
==============================================================================
--- Locale-Maketext-Lexicon/trunk/lib/Locale/Maketext/Extract.pm	(original)
+++ Locale-Maketext-Lexicon/trunk/lib/Locale/Maketext/Extract.pm	Sat Nov 22 16:07:30 2008
@@ -490,7 +490,7 @@
     my ( $self, $file ) = @_;
 
     local ( $/, *FH );
-    open FH, $file or die $!;
+    open FH, $file or die "Error reading from file '$file' : $!";
     my $content = scalar <FH>;
 
     $self->extract( $file => $content );