[libcrypt-u2f-server-perl] 03/06: Error in spelling patch

[Xavier Guimard]

This is an automated email from the git hooks/post-receive script.

xguimard-guest pushed a commit to branch master
in repository libcrypt-u2f-server-perl.

commit 0ce44c1196e24fa0d9f47c0367684006d64912d8
Author: Xavier Guimard <Xavier Guimard x.guimard at free.fr>
Date:   Mon Sep 25 21:25:44 2017 +0200

    Error in spelling patch
---
 debian/patches/spelling-errors.patch | 150 -----------------------------------
 1 file changed, 150 deletions(-)

diff --git a/debian/patches/spelling-errors.patch b/debian/patches/spelling-errors.patch
index 84f6fc5..00f174a 100644
--- a/debian/patches/spelling-errors.patch
+++ b/debian/patches/spelling-errors.patch
@@ -68,153 +68,3 @@ Last-Update: 2017-09-25
  
      my $challenge = $auth->authenticationChallenge();
  
---- /dev/null
-+++ b/const-c.inc
-@@ -0,0 +1,55 @@
-+#define PERL_constant_NOTFOUND	1
-+#define PERL_constant_NOTDEF	2
-+#define PERL_constant_ISIV	3
-+#define PERL_constant_ISNO	4
-+#define PERL_constant_ISNV	5
-+#define PERL_constant_ISPV	6
-+#define PERL_constant_ISPVN	7
-+#define PERL_constant_ISSV	8
-+#define PERL_constant_ISUNDEF	9
-+#define PERL_constant_ISUV	10
-+#define PERL_constant_ISYES	11
-+
-+#ifndef NVTYPE
-+typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
-+#endif
-+#ifndef aTHX_
-+#define aTHX_ /* 5.6 or later define this for threading support.  */
-+#endif
-+#ifndef pTHX_
-+#define pTHX_ /* 5.6 or later define this for threading support.  */
-+#endif
-+
-+static int
-+constant (pTHX_ const char *name, STRLEN len) {
-+  /* Initially switch on the length of the name.  */
-+  /* When generated this function returned values for the list of names given
-+     in this section of perl code.  Rather than manually editing these functions
-+     to add or remove constants, which would result in this comment and section
-+     of code becoming inaccurate, we recommend that you edit this section of
-+     code, and use it to regenerate a new set of constant functions which you
-+     then use to replace the originals.
-+
-+     Regenerate these constant functions by feeding this entire source file to
-+     perl -x
-+
-+#!/usr/bin/perl -w
-+use ExtUtils::Constant qw (constant_types C_constant XS_constant);
-+
-+my $types = {map {($_, 1)} qw()};
-+my @names = (qw());
-+
-+print constant_types(), "\n"; # macro defs
-+foreach (C_constant ("Crypt::U2F::Server", 'constant', 'IV', $types, undef, 3, @names) ) {
-+    print $_, "\n"; # C constant subs
-+}
-+print "\n#### XS Section:\n";
-+print XS_constant ("Crypt::U2F::Server", $types);
-+__END__
-+   */
-+
-+  switch (len) {
-+  }
-+  return PERL_constant_NOTFOUND;
-+}
-+
---- /dev/null
-+++ b/const-xs.inc
-@@ -0,0 +1,89 @@
-+void
-+constant(sv)
-+    PREINIT:
-+#ifdef dXSTARG
-+	dXSTARG; /* Faster if we have it.  */
-+#else
-+	dTARGET;
-+#endif
-+	STRLEN		len;
-+        int		type;
-+	/* IV		iv;	Uncomment this if you need to return IVs */
-+	/* NV		nv;	Uncomment this if you need to return NVs */
-+	/* const char	*pv;	Uncomment this if you need to return PVs */
-+    INPUT:
-+	SV *		sv;
-+        const char *	s = SvPV(sv, len);
-+    PPCODE:
-+	type = constant(aTHX_ s, len);
-+      /* Return 1 or 2 items. First is error message, or undef if no error.
-+           Second, if present, is found value */
-+        switch (type) {
-+        case PERL_constant_NOTFOUND:
-+          sv =
-+	    sv_2mortal(newSVpvf("%s is not a valid Crypt::U2F::Server macro", s));
-+          PUSHs(sv);
-+          break;
-+        case PERL_constant_NOTDEF:
-+          sv = sv_2mortal(newSVpvf(
-+	    "Your vendor has not defined Crypt::U2F::Server macro %s, used",
-+				   s));
-+          PUSHs(sv);
-+          break;
-+	/* Uncomment this if you need to return IVs
-+        case PERL_constant_ISIV:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHi(iv);
-+          break; */
-+	/* Uncomment this if you need to return NOs
-+        case PERL_constant_ISNO:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHs(&PL_sv_no);
-+          break; */
-+	/* Uncomment this if you need to return NVs
-+        case PERL_constant_ISNV:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHn(nv);
-+          break; */
-+	/* Uncomment this if you need to return PVs
-+        case PERL_constant_ISPV:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHp(pv, strlen(pv));
-+          break; */
-+	/* Uncomment this if you need to return PVNs
-+        case PERL_constant_ISPVN:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHp(pv, iv);
-+          break; */
-+	/* Uncomment this if you need to return SVs
-+        case PERL_constant_ISSV:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHs(sv);
-+          break; */
-+	/* Uncomment this if you need to return UNDEFs
-+        case PERL_constant_ISUNDEF:
-+          break; */
-+	/* Uncomment this if you need to return UVs
-+        case PERL_constant_ISUV:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHu((UV)iv);
-+          break; */
-+	/* Uncomment this if you need to return YESs
-+        case PERL_constant_ISYES:
-+          EXTEND(SP, 1);
-+          PUSHs(&PL_sv_undef);
-+          PUSHs(&PL_sv_yes);
-+          break; */
-+        default:
-+          sv = sv_2mortal(newSVpvf(
-+	    "Unexpected return type %d while processing Crypt::U2F::Server macro %s, used",
-+               type, s));
-+          PUSHs(sv);
-+        }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcrypt-u2f-server-perl.git