From ae3b94c242b26dc0ba05abdb80623236b9d423eb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 2 Apr 2009 16:58:38 +0000
Subject: [PATCH] Output subroutines missing POD regardless of coverage
 threshold. Fix the threshold to work correctly based on ENV.

---
 t/POD.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/POD.t b/t/POD.t
index 7cf7b7ca7..43804b7cc 100644
--- a/t/POD.t
+++ b/t/POD.t
@@ -18,8 +18,8 @@ use Pod::Coverage;
 use File::Find;
 use File::Spec;
 
-my $threshold = $ENV{POD_COVERAGE}      ? 0.75
-              : $ENV{POD_COVERAGE} == 2 ? 0.9999
+my $threshold = $ENV{POD_COVERAGE} == 2 ? 0.9999
+              : $ENV{POD_COVERAGE}      ? 0.75
               : 0;
 
 my @modules = ();
@@ -37,7 +37,7 @@ foreach my $package (sort @modules) {
     SKIP: {
         skip "No subroutines found by Devel::Symdump for $package", 1 if $goodReason;
         ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100);
-        if (!$coverage && $ENV{POD_COVERAGE} ==2) {
+        if (!$coverage && $ENV{POD_COVERAGE}) {
             diag Dumper [$pc->naked];
         }
     }