Report Pod::Coverage load failure (dom - happygiraffe.net) (rt 14425).

pjcj · Aug 2, 2006 · 9eca557 · 9eca557
1 parent a40c898
commit 9eca557
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,5 +1,8 @@
 Devel::Cover.pm history
 
+Release 0.57 - 
+ - Report Pod::Coverage load failure (dom - happygiraffe.net) (rt 14425).
+
 Release 0.56 - 1st August 2006
  - gcov2perl creates db if necessary (Steve Peters) (rt 13536).
  - Properly merge identical files (Jeff Wren) (rt 12410).

diff --git a/lib/Devel/Cover.pm b/lib/Devel/Cover.pm
@@ -31,8 +31,12 @@ BEGIN
 {
     # Use Pod::Coverage if it is available.
     eval "use Pod::Coverage 0.06";
+    # If there is any error other than a failure to locate, report it.
+    die $@ if $@ && $@ !~ m/Can't locate Pod\/Coverage.+pm in \@INC/;
+
     # We'll prefer Pod::Coverage::CountParents
     eval "use Pod::Coverage::CountParents";
+    die $@ if $@ && $@ !~ m/Can't locate Pod\/Coverage.+pm in \@INC/;
 }
 
 # $SIG{__DIE__} = \&Carp::confess;