Remove the now unused list function

diff --git a/Nary.xs b/Nary.xs
index c3f1bc59e1ec590ba587842e815de37a6950bd28..084b9ebe51c0593e0c940aff2916d5cfe9e667b6 100644 (file)
--- a/Nary.xs
+++ b/Nary.xs
@@ -62,23 +62,6 @@ CODE:
  res = hv_iterinit(hv) == 1 && hv_exists(hv, "0", 1);
  XSRETURN_IV(res);
 
-void
-list(SV *sv)
-PROTOTYPE: $
-PREINIT:
- HV *hv;
- IV res;
-CODE:
- if (!SvOK(sv))
-  XSRETURN_IV(0);
- if (!SvROK(sv)) {
-  res = strEQ(SvPV_nolen(sv), "list");
-  XSRETURN_IV(res);
- }
- hv = (HV *) SvRV(sv);
- res = hv_iterinit(hv) == 1 && hv_exists(hv, "list", 4);
- XSRETURN_IV(res);
-
 void
 count(SV *sv)
 PROTOTYPE: $

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index 1889ea5aacfb96724fab016eadc63ebd3b80b0fe..b16040ebe6f3417549e58dbde48cfc456fce05e5 100644 (file)
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -18,6 +18,6 @@ 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/,
  qw/tag scalops/,
- qw/null zero list count scale normalize add combine cumulate power/,
+ qw/null zero count scale normalize add combine cumulate power/,
  qw/name const_sv gv_or_padgv padval/
 ] });