From: Vincent Pit <vince@profvince.com>
Date: Fri, 8 Aug 2008 18:47:29 +0000 (+0200)
Subject: Remove the now unused list function
X-Git-Tag: v0.03~10
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=abeae39be61a1284ff7551d1d669e0b458e264e8;p=perl%2Fmodules%2FSub-Nary.git

Remove the now unused list function
---

diff --git a/Nary.xs b/Nary.xs
index c3f1bc5..084b9eb 100644
--- 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 1889ea5..b16040e 100644
--- 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/
 ] });