Work in progress

[perl/modules/Sub-Nary.git] / t / 92-pod-coverage.t

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index b16040ebe6f3417549e58dbde48cfc456fce05e5..777f79eecf64504fbd74cee01aeaed2e260a01a4 100644 (file)
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -16,7 +16,7 @@ eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
 all_pod_coverage_ok({ also_private => [
- qr/^inspect/, qr/^pp_/, qw/enter/,
+ qr/^inspect/, qr/^pp_/, qr/^OPc_/, qw/enter/,
  qw/tag scalops/,
  qw/null zero count scale normalize add combine cumulate power/,
  qw/name const_sv gv_or_padgv padval/