[libcrypt-u2f-server-perl] 02/06: Add spelling errors patch (reported)
Xavier Guimard
xguimard-guest at moszumanska.debian.org
Mon Sep 25 17:22:11 UTC 2017
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 75a78b3847d09a2ac6f27e784b6bb8b57cd2fbac
Author: Xavier Guimard <x.guimard at free.fr>
Date: Mon Sep 25 19:13:40 2017 +0200
Add spelling errors patch (reported)
---
debian/patches/series | 1 +
debian/patches/spelling-errors.patch | 220 +++++++++++++++++++++++++++++++++++
2 files changed, 221 insertions(+)
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..38edaa7
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+spelling-errors.patch
diff --git a/debian/patches/spelling-errors.patch b/debian/patches/spelling-errors.patch
new file mode 100644
index 0000000..0ec4709
--- /dev/null
+++ b/debian/patches/spelling-errors.patch
@@ -0,0 +1,220 @@
+Description: Spelling errors
+Author: Xavier Guimard <x.guimard at free.fr>
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=123122
+Last-Update: 2017-09-25
+
+--- a/lib/Crypt/U2F/Server.pm
++++ b/lib/Crypt/U2F/Server.pm
+@@ -71,7 +71,7 @@
+
+ =head1 NAME
+
+-Crypt::U2F::Server - Low level wrapper around the U2F two factor athentication C library (server side)
++Crypt::U2F::Server - Low level wrapper around the U2F two factor authentication C library (server side)
+
+ =head1 SYNOPSIS
+
+@@ -90,7 +90,7 @@
+
+ =head1 INSTALLATION
+
+-This module requires the Yubico u2f-server shared libary installed, please see the official
++This module requires the Yubico u2f-server shared library installed, please see the official
+ project page at L<https://developers.yubico.com/libu2f-server/> on how to do that.
+
+ =head1 NO MULTITHREADING / MULTI INSTANCES
+--- a/lib/Crypt/U2F/Server/Simple.pm
++++ b/lib/Crypt/U2F/Server/Simple.pm
+@@ -263,13 +263,13 @@
+ # Generate a registration request
+ my $registerRequest = $crypter->registrationChallenge();
+
+- # Give $registerRequest to client, recieve $registrationData from client
++ # Give $registerRequest to client, receive $registrationData from client
+ my ($keyHandle, $userKey) = $crypter->registrationVerify($registrationData)
+
+ # Generate an authentication request (using the previously generated key handle and user key)
+ my $authrequest = $crypter->authenticationChallenge();
+
+- # Send $authrequest to client, recieve $authSignature
++ # Send $authrequest to client, receive $authSignature
+ my $authok = $crypter->authenticationVerify($authSignature);
+
+ =head1 DESCRIPTION
+@@ -281,13 +281,13 @@
+ in another program on another server. But, as far as it is currently implemented, you must run both registration
+ steps in the same instance of this module, the same goes for authentication. Needs more testing, really.
+
+-A succesfull registration of a key yields to two scalars, a key handle and a public key. It is B<your>
++A successfull registration of a key yields to two scalars, a key handle and a public key. It is B<your>
+ responsibility to keep them safe somewhere and reload them into this module whenever you want to do
+ authentication.
+
+ =head1 INSTALLATION
+
+-This module requires the Yubico u2f-server shared libary installed, please see the official
++This module requires the Yubico u2f-server shared library installed, please see the official
+ project page at L<https://developers.yubico.com/libu2f-server/> on how to do that.
+
+ =head1 NO MULTITHREADING
+@@ -374,8 +374,8 @@
+
+ =head2 authenticationChallenge()
+
+-This function generates an authentification challenge. To do that, it needs keyHandle and publicKey, since this
+-is key dependend.
++This function generates an authentication challenge. To do that, it needs keyHandle and publicKey, since this
++is key dependent.
+
+ 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
More information about the Pkg-perl-cvs-commits
mailing list