X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=Nary.xs;h=084b9ebe51c0593e0c940aff2916d5cfe9e667b6;hp=c3f1bc59e1ec590ba587842e815de37a6950bd28;hb=abeae39be61a1284ff7551d1d669e0b458e264e8;hpb=fd35681c6f0a1e84d407dbe4fcc7a3c25e4d8851

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: $