Hello community,
here is the log from the commit of package perl-Crypt-OpenSSL-Random for
openSUSE:Factory checked in at 2015-02-11 16:31:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Crypt-OpenSSL-Random (Old)
and /work/SRC/openSUSE:Factory/.perl-Crypt-OpenSSL-Random.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Crypt-OpenSSL-Random"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Crypt-OpenSSL-Random/perl-Crypt-OpenSSL-Random.changes
2012-06-10 21:52:09.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Crypt-OpenSSL-Random.new/perl-Crypt-OpenSSL-Random.changes
2015-02-11 16:31:27.000000000 +0100
@@ -1,0 +2,30 @@
+Sat Feb 7 16:23:00 UTC 2015 - [email protected]
+
+- updated to 0.10
+ - fix LIBS argument, fatal on Windows. thanks to kmx
+
+ 0.09 2015-02-04 rurban
+ - add missing hints/MSWin32.pl (kmx, RT #56455)
+ - add a couple of distro tests
+ - fix gcov target
+
+ 0.08 2015-02-03 rurban
+ - remove Devel::CheckLib which does not work for 2 required libs
+ - replace DynaLoader by XSLoader
+
+ 0.07 2015-02-03 rurban
+ - Bump version to publish an official release
+
+ 0.06 rurban
+ - Typo in doc (dsteinbrunner)
+
+ 0.05 2013-04-02 14:31:30 rurban
+ - Add inc/Devel/CheckLib, improve POD, add README and some helper
targets
+ - Better diagnostics when the openssl libraries are not found
+ - Support INCDIR= and LIBDIR= arguments to Makefile.PL
+ - Add MSWin32 hints to find the openssl libraries
+ - Autocreate README
+ - Fix some -Wpointer-sign warnings
+ - Remove wrong Crypt::OpenSSL::RSA package names in docs and errmsg
+
+-------------------------------------------------------------------
Old:
----
Crypt-OpenSSL-Random-0.04.tar.gz
New:
----
Crypt-OpenSSL-Random-0.10.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Crypt-OpenSSL-Random.spec ++++++
--- /var/tmp/diff_new_pack.3b1fo9/_old 2015-02-11 16:31:28.000000000 +0100
+++ /var/tmp/diff_new_pack.3b1fo9/_new 2015-02-11 16:31:28.000000000 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Crypt-OpenSSL-Random
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -15,33 +15,32 @@
# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
-# norootforbuild
-
Name: perl-Crypt-OpenSSL-Random
+Version: 0.10
+Release: 0
%define cpan_name Crypt-OpenSSL-Random
-Summary: Crypt::OpenSSL::Random Perl module
-Version: 0.04
-Release: 9
-License: GPL-1.0+ or Artistic-1.0
+Summary: Routines for accessing the OpenSSL pseudo-random number
generator
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Crypt-OpenSSL-Random/
-#Source:
http://www.cpan.org/modules/by-module/Crypt/Crypt-OpenSSL-Random-%{version}.tar.bz2
-Source: %{cpan_name}-%{version}.tar.gz
+Source:
http://www.cpan.org/authors/id/R/RU/RURBAN/%{cpan_name}-%{version}.tar.gz
BuildRoot: %{_tmppath}/%{name}-%{version}-build
-%{perl_requires}
-BuildRequires: openssl-devel perl
+BuildRequires: perl
BuildRequires: perl-macros
+%{perl_requires}
+#MANUAL
+BuildRequires: openssl-devel
%description
Crypt::OpenSSL::Random provides the ability to seed and query the OpenSSL
-library's pseudo-random number generator
+library's pseudo-random number generator.
%prep
%setup -q -n %{cpan_name}-%{version}
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
+%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
%{__make} %{?_smp_mflags}
%check
@@ -52,11 +51,8 @@
%perl_process_packlist
%perl_gen_filelist
-%clean
-%{__rm} -rf %{buildroot}
-
%files -f %{name}.files
-%defattr(-,root,root,-)
-%doc Changes LICENSE
+%defattr(-,root,root,755)
+%doc Changes LICENSE README
%changelog
++++++ Crypt-OpenSSL-Random-0.04.tar.gz -> Crypt-OpenSSL-Random-0.10.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/.gitignore
new/Crypt-OpenSSL-Random-0.10/.gitignore
--- old/Crypt-OpenSSL-Random-0.04/.gitignore 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/.gitignore 2015-02-04 12:34:58.000000000
+0100
@@ -0,0 +1,20 @@
+.cvsignore
+blib
+pm_to_blib
+Makefile
+Makefile.old
+*.bs
+*.c
+*.i
+*.o
+*.gcov
+*.gcno
+cover_db
+/Debian_CPANTS.txt
+/00*.patch
+/log.test-*
+/Crypt-OpenSSL-Random*.tar.gz
+/META.yml
+/MYMETA.yml
+/MYMETA.json
+/CVS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/Changes
new/Crypt-OpenSSL-Random-0.10/Changes
--- old/Crypt-OpenSSL-Random-0.04/Changes 2007-05-20 21:42:15.000000000
+0200
+++ new/Crypt-OpenSSL-Random-0.10/Changes 2015-02-04 19:40:47.000000000
+0100
@@ -1,5 +1,32 @@
Revision history for Perl extension Crypt::OpenSSL::Random.
+0.10 2015-02-04 rurban
+ - fix LIBS argument, fatal on Windows. thanks to kmx
+
+0.09 2015-02-04 rurban
+ - add missing hints/MSWin32.pl (kmx, RT #56455)
+ - add a couple of distro tests
+ - fix gcov target
+
+0.08 2015-02-03 rurban
+ - remove Devel::CheckLib which does not work for 2 required libs
+ - replace DynaLoader by XSLoader
+
+0.07 2015-02-03 rurban
+ - Bump version to publish an official release
+
+0.06 rurban
+ - Typo in doc (dsteinbrunner)
+
+0.05 2013-04-02 14:31:30 rurban
+ - Add inc/Devel/CheckLib, improve POD, add README and some helper
targets
+ - Better diagnostics when the openssl libraries are not found
+ - Support INCDIR= and LIBDIR= arguments to Makefile.PL
+ - Add MSWin32 hints to find the openssl libraries
+ - Autocreate README
+ - Fix some -Wpointer-sign warnings
+ - Remove wrong Crypt::OpenSSL::RSA package names in docs and errmsg
+
0.04 Sun May 20 13:41:04 2007
- Add a LICENSE file.
- Better use of types.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/LICENSE
new/Crypt-OpenSSL-Random-0.10/LICENSE
--- old/Crypt-OpenSSL-Random-0.04/LICENSE 2007-05-15 06:16:13.000000000
+0200
+++ new/Crypt-OpenSSL-Random-0.10/LICENSE 2013-04-02 21:27:47.000000000
+0200
@@ -11,9 +11,10 @@
The General Public License (GPL)
Version 2, June 1991
-Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave,
-Cambridge, MA 02139, USA. Everyone is permitted to copy and distribute
-verbatim copies of this license document, but changing it is not allowed.
+Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin
+Street, Fifth Floor, Boston, MA 02110-1301 USA. Everyone is permitted
+to copy and distribute verbatim copies of this license document, but
+changing it is not allowed.
Preamble
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/MANIFEST
new/Crypt-OpenSSL-Random-0.10/MANIFEST
--- old/Crypt-OpenSSL-Random-0.04/MANIFEST 2007-05-20 22:37:03.000000000
+0200
+++ new/Crypt-OpenSSL-Random-0.10/MANIFEST 2015-02-04 19:43:39.000000000
+0100
@@ -1,8 +1,19 @@
+.gitignore
Changes
LICENSE
MANIFEST
Makefile.PL
+README
Random.pm
Random.xs
-test.pl
-META.yml Module meta-data (added by MakeMaker)
+hints/MSWin32.pl
+t/0-basic.t
+t/z_kwalitee.t
+t/z_manifest.t
+t/z_meta.t
+t/z_perl_minimum_version.t
+t/z_pod-coverage.t
+t/z_pod.t
+META.yml Module YAML meta-data (added by
MakeMaker)
+META.json Module JSON meta-data (added by
MakeMaker)
+SIGNATURE Public-key signature (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/META.json
new/Crypt-OpenSSL-Random-0.10/META.json
--- old/Crypt-OpenSSL-Random-0.04/META.json 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/META.json 2015-02-04 19:43:39.000000000
+0100
@@ -0,0 +1,49 @@
+{
+ "abstract" : "unknown",
+ "author" : [
+ "Ian Robertson"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter
version 2.142060",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "Crypt-OpenSSL-Random",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {}
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "homepage" : "http://sourceforge.net/projects/perl-openssl/";,
+ "license" : [
+ "http://dev.perl.org/licenses/";
+ ],
+ "repository" : {
+ "url" : "https://github.com/rurban/Crypt-OpenSSL-Random";
+ },
+ "x_MailingList" : "[email protected]"
+ },
+ "version" : "0.10"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/META.yml
new/Crypt-OpenSSL-Random-0.10/META.yml
--- old/Crypt-OpenSSL-Random-0.04/META.yml 2007-05-20 22:37:03.000000000
+0200
+++ new/Crypt-OpenSSL-Random-0.10/META.yml 2015-02-04 19:43:39.000000000
+0100
@@ -1,10 +1,26 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Crypt-OpenSSL-Random
-version: 0.04
-version_from: Random.pm
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+---
+abstract: unknown
+author:
+ - 'Ian Robertson'
+build_requires:
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version
2.142060'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: Crypt-OpenSSL-Random
+no_index:
+ directory:
+ - t
+ - inc
+requires: {}
+resources:
+ MailingList: [email protected]
+ homepage: http://sourceforge.net/projects/perl-openssl/
+ license: http://dev.perl.org/licenses/
+ repository: https://github.com/rurban/Crypt-OpenSSL-Random
+version: '0.10'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/Makefile.PL
new/Crypt-OpenSSL-Random-0.10/Makefile.PL
--- old/Crypt-OpenSSL-Random-0.04/Makefile.PL 2001-04-09 04:17:54.000000000
+0200
+++ new/Crypt-OpenSSL-Random-0.10/Makefile.PL 2015-02-04 19:39:23.000000000
+0100
@@ -1,11 +1,73 @@
use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
+use Config;
+use 5.006;
+
+my ($libdir, $incdir);
+my $args = join(" ", @ARGV);
+if ($args =~ /INCDIR[ =](\S+)/) {
+ $incdir = $1;
+}
+if ($args =~ /LIBDIR[ =](\S+)/) {
+ $libdir = $1;
+}
+my $libs = "-lssl -lcrypto";
+
WriteMakefile(
- 'NAME' => 'Crypt::OpenSSL::Random',
- 'VERSION_FROM' => 'Random.pm', # finds $VERSION
- 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1
- 'LIBS' => ['-lssl -lcrypto'], # e.g., '-lm'
- 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
- 'INC' => '', # e.g., '-I/usr/include/other'
+ 'NAME' => 'Crypt::OpenSSL::Random',
+ 'VERSION_FROM' => 'Random.pm',
+ 'LIBS' => $libdir ? [ "-L$libdir $libs" ] : [ $libs ],
+ 'INC' => $incdir ? "-I$incdir" : "",
+ 'AUTHOR' => 'Ian Robertson',
+ ($ExtUtils::MakeMaker::VERSION gt '6.46' ?
+ ('LICENSE' => 'perl',
+ 'META_MERGE' =>
+ {
+ resources =>
+ {
+ homepage => 'http://sourceforge.net/projects/perl-openssl/',
+ repository => 'https://github.com/rurban/Crypt-OpenSSL-Random',
+ #repository =>
'http://perl-openssl.cvs.sourceforge.net/viewvc/perl-openssl/Crypt/OpenSSL/Random/',
+ license => 'http://dev.perl.org/licenses/',
+ MailingList => '[email protected]',
+ },
+ }
+ ) : ()),
+ SIGN => 1
);
+
+package MY;
+use Config;
+
+sub top_targets {
+ local $_ = shift->SUPER::top_targets(@_);
+ s/\$\(FIRST_MAKEFILE\) blibdirs/\$(FIRST_MAKEFILE\) blibdirs README/;
+ $_
+}
+
+sub depend {
+ "
+README : \$(VERSION_FROM)
+ pod2text \$(VERSION_FROM) > README
+
+release : dist
+ git commit -a -m\"release \$(VERSION)\"
+ git tag \$(VERSION)
+ cpan-upload \$(DISTVNAME).tar\$(SUFFIX)
+ git push
+ git push --tags
+
+gcov : \$(BASEEXT).c.gcov \$(BASEEXT).xs.gcov cover_db/\$(BASEEXT)-xs.html
+
+\$(BASEEXT).c.gcov \$(BASEEXT).xs.gcov : \$(BASEEXT).xs
+ \$(MAKE) CCFLAGS=\"\$(CCFLAGS) -fprofile-arcs -ftest-coverage\"
LDDLFLAGS=\"\$(LDDLFLAGS) -fprofile-arcs -ftest-coverage\"
+ gcov \$(BASEEXT).c \$(BASEEXT).xs
+
+cover_db/\$(BASEEXT)-xs.html : \$(BASEEXT).xs.gcov
+ PERL5OPT=-MDevel::Cover make test
+ -$^X -S gcov2perl \$(BASEEXT).c.gcov \$(BASEEXT).xs.gcov
+ $^X -S cover
+
+gprof :
+ \$(MAKE) CCFLAGS=\"\$(CCFLAGS) -pg\" LDDLFLAGS=\"\$(LDDLFLAGS) -pg\"
+"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/README
new/Crypt-OpenSSL-Random-0.10/README
--- old/Crypt-OpenSSL-Random-0.04/README 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/README 2015-02-04 19:41:05.000000000
+0100
@@ -0,0 +1,70 @@
+NAME
+ Crypt::OpenSSL::Random - Routines for accessing the OpenSSL
+ pseudo-random number generator using the openSSL libraries
+
+SYNOPSIS
+ use Crypt::OpenSSL::Random;
+
+ Crypt::OpenSSL::Random::random_seed($good_random_data);
+ Crypt::OpenSSL::Random::random_egd("/tmp/entropy");
+ Crypt::OpenSSL::Random::random_status() or
+ die "Unable to sufficiently seed the random number generator".
+
+ my $ten_good_random_bytes = Crypt::OpenSSL::Random::random_bytes(10);
+ my $ten_ok_random_bytes =
Crypt::OpenSSL::Random::random_pseudo_bytes(10);
+
+DESCRIPTION
+ Crypt::OpenSSL::Random provides the ability to seed and query the
+ OpenSSL library's pseudo-random number generator.
+
+ EXPORT
+ None by default.
+
+Static Methods
+ random_bytes (IV num_bytes)
+ This function, returns a specified number of cryptographically
+ strong pseudo-random bytes from the PRNG. If the PRNG has not been
+ seeded with enough randomness to ensure an unpredictable byte
+ sequence, then a false value is returned.
+
+ random_pseudo_bytes (IV num_bytes)
+ This function, is similar to c<random_bytes>, but the resulting
+ sequence of bytes are not necessarily unpredictable. They can be
+ used for non-cryptographic purposes and for certain purposes in
+ cryptographic protocols, but usually not for key generation etc.
+
+ random_seed (PV random_bytes_string)
+ This function seeds the PRNG with a supplied string of bytes. It
+ returns true if the PRNG has sufficient seeding. Note: calling this
+ function with non-random bytes is of limited value at best!
+
+ random_egd (PV egd_string)
+ This function seeds the PRNG with data from the specified entropy
+ gathering daemon. Returns the number of bytes read from the daemon
+ on success, or -1 if not enough bytes were read, or if the
+ connection to the daemon failed.
+
+ random_status ()
+ This function returns true if the PRNG has sufficient seeding.
+
+BUGS
+ Because of the internal workings of OpenSSL's random library, the
+ pseudo-random number generator (PRNG) accessed by Crypt::OpenSSL::Random
+ will be different than the one accessed by any other perl module. Hence,
+ to use a module such as Crypt::OpenSSL::Random, you will need to seed
+ the PRNG used there from one used here. This class is still
+ advantageous, however, as it centralizes other methods, such as
+ "random_egd", in one place.
+
+AUTHOR
+ Ian Robertson, "[email protected]"
+
+ Now maintained by Reini Urban, "[email protected]"
+
+LICENSE
+ This module is available under the same licences as perl, the Artistic
+ license and the GPL.
+
+SEE ALSO
+ perl(1), rand(3), RAND_add(3), RAND_egd(3), RAND_bytes(3).
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/Random.pm
new/Crypt-OpenSSL-Random-0.10/Random.pm
--- old/Crypt-OpenSSL-Random-0.04/Random.pm 2007-05-20 21:42:24.000000000
+0200
+++ new/Crypt-OpenSSL-Random-0.10/Random.pm 2015-02-04 19:40:03.000000000
+0100
@@ -1,40 +1,24 @@
package Crypt::OpenSSL::Random;
use strict;
-use Carp;
-
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+use XSLoader;
require Exporter;
-require DynaLoader;
-use AutoLoader;
-
-@ISA = qw(Exporter DynaLoader);
-
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-
+@ISA = qw(Exporter);
@EXPORT_OK = qw( random_bytes random_pseudo_bytes random_seed
random_egd random_status );
-$VERSION = '0.04';
-
-bootstrap Crypt::OpenSSL::Random $VERSION;
-
-# Preloaded methods go here.
-
-# Autoload methods go after =cut, and are processed by the autosplit program.
+$VERSION = '0.10';
+XSLoader::load( __PACKAGE__, $VERSION );
1;
__END__
=head1 NAME
-Crypt::OpenSSL::RSA - RSA encoding and decoding, using the openSSL libraries
-
-Crypt::OpenSSL::Random - Routines for accessing the OpenSSL
-pseudo-random number generator
+Crypt::OpenSSL::Random - Routines for accessing the OpenSSL pseudo-random
number generator
+using the openSSL libraries
=head1 SYNOPSIS
@@ -51,7 +35,7 @@
=head1 DESCRIPTION
Crypt::OpenSSL::Random provides the ability to seed and query the
-OpenSSL library's pseudo-random number generator
+OpenSSL library's pseudo-random number generator.
=head2 EXPORT
@@ -59,37 +43,41 @@
=head1 Static Methods
-=item random_bytes
+=over
+
+=item random_bytes (IV num_bytes)
This function, returns a specified number of cryptographically strong
pseudo-random bytes from the PRNG. If the PRNG has not been seeded
with enough randomness to ensure an unpredictable byte sequence, then
a false value is returned.
-=item random_pseudo_bytes
+=item random_pseudo_bytes (IV num_bytes)
This function, is similar to c<random_bytes>, but the resulting
sequence of bytes are not necessarily unpredictable. They can be used
for non-cryptographic purposes and for certain purposes in
cryptographic protocols, but usually not for key generation etc.
-=item random_seed
+=item random_seed (PV random_bytes_string)
This function seeds the PRNG with a supplied string of bytes. It
returns true if the PRNG has sufficient seeding. Note: calling this
function with non-random bytes is of limited value at best!
-=item random_egd
+=item random_egd (PV egd_string)
This function seeds the PRNG with data from the specified entropy
gathering daemon. Returns the number of bytes read from the daemon on
-succes, or -1 if not enough bytes were read, or if the connection to
+success, or C<-1> if not enough bytes were read, or if the connection to
the daemon failed.
-=item random_status
+=item random_status ()
This function returns true if the PRNG has sufficient seeding.
+=back
+
=head1 BUGS
Because of the internal workings of OpenSSL's random library, the
@@ -98,11 +86,18 @@
other perl module. Hence, to use a module such as
Crypt::OpenSSL::Random, you will need to seed the PRNG used there from
one used here. This class is still advantageous, however, as it
-centralizes other methods, such as random_egd, in one place.
+centralizes other methods, such as C<random_egd>, in one place.
=head1 AUTHOR
-Ian Robertson, [email protected]
+Ian Robertson, C<[email protected]>
+
+Now maintained by Reini Urban, C<[email protected]>
+
+=head1 LICENSE
+
+This module is available under the same licences as perl, the Artistic
+license and the GPL.
=head1 SEE ALSO
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/Random.xs
new/Crypt-OpenSSL-Random-0.10/Random.xs
--- old/Crypt-OpenSSL-Random-0.04/Random.xs 2006-01-06 15:49:32.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/Random.xs 2013-04-02 21:30:02.000000000
+0200
@@ -4,7 +4,7 @@
#include <openssl/rand.h>
-#define PACKAGE_NAME "Crypt::OpenSSL::RSA"
+#define PACKAGE_NAME "Crypt::OpenSSL::Random"
MODULE = Crypt::OpenSSL::Random PACKAGE = Crypt::OpenSSL::Random
void
@@ -22,7 +22,7 @@
if(RAND_bytes(rand_bytes, num_bytes))
{
- XPUSHs(sv_2mortal(newSVpv(rand_bytes, num_bytes)));
+ XPUSHs(sv_2mortal(newSVpv((const char*)rand_bytes, num_bytes)));
Safefree(rand_bytes);
XSRETURN(1);
}
@@ -47,7 +47,7 @@
if(RAND_bytes(rand_bytes, num_bytes))
{
- XPUSHs(sv_2mortal(newSVpv(rand_bytes, num_bytes)));
+ XPUSHs(sv_2mortal(newSVpv((const char*)rand_bytes, num_bytes)));
Safefree(rand_bytes);
XSRETURN(1);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/SIGNATURE
new/Crypt-OpenSSL-Random-0.10/SIGNATURE
--- old/Crypt-OpenSSL-Random-0.04/SIGNATURE 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/SIGNATURE 2015-02-04 19:43:42.000000000
+0100
@@ -0,0 +1,41 @@
+This file contains message digests of all files listed in MANIFEST,
+signed via the Module::Signature module, version 0.73.
+
+To verify the content in this distribution, first make sure you have
+Module::Signature installed, then type:
+
+ % cpansign -v
+
+It will check each file's integrity, as well as the signature's
+validity. If "==> Signature verified OK! <==" is not displayed,
+the distribution may already have been compromised, and you should
+not run its Makefile.PL or Build.PL.
+
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+SHA1 5dd03065ad95845ec70baa4c92c396dc3ef15efb .gitignore
+SHA1 2f1a06eb788d0cce3882d7a66f690ba548905a21 Changes
+SHA1 78f7d31b9283b034cf19e61bc70d24bb38581b1e LICENSE
+SHA1 d1b344f1315cebc307771957afb228ff85a5eb2c MANIFEST
+SHA1 9547956449e2a90dbfbbdc7a7af17bcb2f588148 META.json
+SHA1 92b3cec46c624cecc8e1cd33734a56d03f21ca36 META.yml
+SHA1 2ddcb73e7e3c11d765bef06138bc39edef47de2d Makefile.PL
+SHA1 f9ca6e1da721ba27fea2de76ce154b4c04c24a27 README
+SHA1 4b366deb8487ce018daecc4da55c1ae0cacd004b Random.pm
+SHA1 fd2ed6100e3204315281a4ff74c7180a8841f27e Random.xs
+SHA1 43295de162f592dd4ebfde6e424d22aedac03423 hints/MSWin32.pl
+SHA1 1e8812dab8110e4d887880444a3a19e10b1f7567 t/0-basic.t
+SHA1 7de5e8f63465d9711faa107972ebce8e1349ccd6 t/z_kwalitee.t
+SHA1 9eba44de180daef6319b2c4a75ab55c972844c0e t/z_manifest.t
+SHA1 993b3cef8c06a70d99829facf76140864eb57240 t/z_meta.t
+SHA1 ade48e2b6098a0a329312543e1451e7e7fb7bc5f t/z_perl_minimum_version.t
+SHA1 1dbe44e2091ab84d8462fda2052e35bf1354d963 t/z_pod-coverage.t
+SHA1 c8aa3903d3aba84c19bbd94d677620c758fa07d5 t/z_pod.t
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1
+
+iEYEARECAAYFAlTSaFsACgkQmm2SYo/9yUIeFgCeMWpukwwACf/BLmYYjfl3AnsE
+uCUAn3w+q8p7x3swGspxLVsqjhPUAHuX
+=hhvG
+-----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/hints/MSWin32.pl
new/Crypt-OpenSSL-Random-0.10/hints/MSWin32.pl
--- old/Crypt-OpenSSL-Random-0.04/hints/MSWin32.pl 1970-01-01
01:00:00.000000000 +0100
+++ new/Crypt-OpenSSL-Random-0.10/hints/MSWin32.pl 2013-04-02
21:09:43.000000000 +0200
@@ -0,0 +1,3 @@
+use Config;
+$self->{LIBS} = ['-lssleay32 -llibeay32'] if $Config{cc} =~ /cl/; # msvc with
ActivePerl
+$self->{LIBS} = ['-lssl32 -leay32'] if $Config{gccversion}; # gcc
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/0-basic.t
new/Crypt-OpenSSL-Random-0.10/t/0-basic.t
--- old/Crypt-OpenSSL-Random-0.04/t/0-basic.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/t/0-basic.t 2013-04-02 18:30:58.000000000
+0200
@@ -0,0 +1,44 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+######################### We start with some black magic to print on failure.
+
+# Change 1..1 below to 1..last_test_to_print .
+# (It may become useful if the test is moved to ./t subdirectory.)
+
+BEGIN { $| = 1; print "1..5\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use Crypt::OpenSSL::Random;
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+# Insert your test code below (better if it prints "ok 13"
+# (correspondingly "not ok 13") depending on the success of chunk 13
+# of the test code):
+
+my $test_number = 2;
+sub my_test
+{
+ my($cond) = @_;
+ my $number = $test_number++;
+ if ($cond)
+ {
+ print "ok $number\n";
+ }
+ else
+ {
+ my ($pack, $file, $line) = caller;
+ print "not ok $number - from $file:$line\n";
+ }
+}
+
+my_test(Crypt::OpenSSL::Random::random_seed
+ ("OpenSSL needs at least 32 bytes."));
+
+# We should now be seeded, regardless.
+my_test(Crypt::OpenSSL::Random::random_status());
+
+my_test(length(Crypt::OpenSSL::Random::random_bytes(53)) == 53);
+my_test(length(Crypt::OpenSSL::Random::random_pseudo_bytes(53)) == 53);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/z_kwalitee.t
new/Crypt-OpenSSL-Random-0.10/t/z_kwalitee.t
--- old/Crypt-OpenSSL-Random-0.04/t/z_kwalitee.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Crypt-OpenSSL-Random-0.10/t/z_kwalitee.t 2015-02-04
12:21:52.000000000 +0100
@@ -0,0 +1,20 @@
+# -*- perl -*-
+use strict;
+use warnings;
+
+use Test::More;
+use Config;
+
+plan skip_all => 'This test is only run for the module author'
+ unless -d '.git' || $ENV{IS_MAINTAINER};
+plan skip_all => 'Test::Kwalitee fails with clang -faddress-sanitizer'
+ if $Config{ccflags} =~ /-faddress-sanitizer/;
+
+use File::Copy 'cp';
+cp('MYMETA.yml','META.yml') if -e 'MYMETA.yml' and !-e 'META.yml';
+eval {
+ require Test::Kwalitee;
+ Test::Kwalitee->import;
+};
+plan skip_all => "Test::Kwalitee needed for testing kwalitee"
+ if $@;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/z_manifest.t
new/Crypt-OpenSSL-Random-0.10/t/z_manifest.t
--- old/Crypt-OpenSSL-Random-0.04/t/z_manifest.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Crypt-OpenSSL-Random-0.10/t/z_manifest.t 2015-02-04
12:33:14.000000000 +0100
@@ -0,0 +1,15 @@
+# -*- perl -*-
+use Test::More;
+if (!-d ".git" or $^O !~ /^(linux|.*bsd|darwin|solaris|sunos)$/) {
+ plan skip_all => "requires a git checkout and a unix for git and diff";
+}
+plan tests => 1;
+
+system("git ls-tree -r --name-only HEAD >MANIFEST.git");
+if (-e "MANIFEST.git") {
+ diag "MANIFEST.git created with git ls-tree";
+ is(`diff -bu MANIFEST.git MANIFEST`, "", "MANIFEST.git compared to
MANIFEST");
+ unlink "MANIFEST.git";
+} else {
+ ok(1, "skip no git");
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/z_meta.t
new/Crypt-OpenSSL-Random-0.10/t/z_meta.t
--- old/Crypt-OpenSSL-Random-0.04/t/z_meta.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/t/z_meta.t 2015-02-04 12:14:13.000000000
+0100
@@ -0,0 +1,28 @@
+# -*- perl -*-
+
+# Test that our META.yml file matches the current specification.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::CPAN::Meta 0.12';
+
+# Don't run tests for installs
+use Test::More;
+use Config;
+plan skip_all => 'This test is only run for the module author'
+ unless -d '.git' || $ENV{IS_MAINTAINER};
+plan skip_all => 'Test::CPAN::Meta fails with clang -faddress-sanitizer'
+ if $Config{ccflags} =~ /-faddress-sanitizer/;
+
+# Load the testing module
+eval "use $MODULE;";
+if ( $@ ) {
+ plan( skip_all => "$MODULE not available for testing" );
+ die "Failed to load required release-testing module $MODULE 0.12"
+ if -d '.git' || $ENV{IS_MAINTAINER};
+}
+meta_yaml_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/z_perl_minimum_version.t
new/Crypt-OpenSSL-Random-0.10/t/z_perl_minimum_version.t
--- old/Crypt-OpenSSL-Random-0.04/t/z_perl_minimum_version.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Crypt-OpenSSL-Random-0.10/t/z_perl_minimum_version.t 2015-02-04
12:14:13.000000000 +0100
@@ -0,0 +1,33 @@
+# -*- perl -*-
+
+# Test that our declared minimum Perl version matches our syntax
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Perl::MinimumVersion 1.20',
+ 'Test::MinimumVersion 0.008',
+);
+
+# Don't run tests during end-user installs
+use Test::More;
+unless (-d '.git' || $ENV{IS_MAINTAINER}) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ plan( skip_all => "$MODULE not available for testing" );
+ die "Failed to load required release-testing module $MODULE"
+ if -d '.git' || $ENV{IS_MAINTAINER};
+ }
+}
+
+all_minimum_version_ok("5.006");
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/z_pod-coverage.t
new/Crypt-OpenSSL-Random-0.10/t/z_pod-coverage.t
--- old/Crypt-OpenSSL-Random-0.04/t/z_pod-coverage.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Crypt-OpenSSL-Random-0.10/t/z_pod-coverage.t 2015-02-04
12:14:13.000000000 +0100
@@ -0,0 +1,18 @@
+# -*- perl -*-
+use strict;
+use warnings;
+use Test::More;
+
+plan skip_all => 'done_testing requires Test::More 0.88' if
Test::More->VERSION < 0.88;
+plan skip_all => 'This test is only run for the module author'
+ unless -d '.git' || $ENV{IS_MAINTAINER};
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
+ if $@;
+
+for (all_modules()) {
+ pod_coverage_ok($_) unless /Filter::decrypt/;
+}
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/t/z_pod.t
new/Crypt-OpenSSL-Random-0.10/t/z_pod.t
--- old/Crypt-OpenSSL-Random-0.04/t/z_pod.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/t/z_pod.t 2015-02-04 12:14:13.000000000
+0100
@@ -0,0 +1,5 @@
+# -*- perl -*-
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-OpenSSL-Random-0.04/test.pl
new/Crypt-OpenSSL-Random-0.10/test.pl
--- old/Crypt-OpenSSL-Random-0.04/test.pl 2006-01-06 16:02:45.000000000
+0100
+++ new/Crypt-OpenSSL-Random-0.10/test.pl 1970-01-01 01:00:00.000000000
+0100
@@ -1,44 +0,0 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-######################### We start with some black magic to print on failure.
-
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-BEGIN { $| = 1; print "1..5\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Crypt::OpenSSL::Random;
-$loaded = 1;
-print "ok 1\n";
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
-
-my $test_number = 2;
-sub my_test
-{
- my($cond) = @_;
- my $number = $test_number++;
- if ($cond)
- {
- print "ok $number\n";
- }
- else
- {
- my ($pack, $file, $line) = caller;
- print "not ok $number - from $file:$line\n";
- }
-}
-
-my_test(Crypt::OpenSSL::Random::random_seed
- ("OpenSSL needs at least 32 bytes."));
-
-# We should now be seeded, regardless.
-my_test(Crypt::OpenSSL::Random::random_status());
-
-my_test(length(Crypt::OpenSSL::Random::random_bytes(53)) == 53);
-my_test(length(Crypt::OpenSSL::Random::random_pseudo_bytes(53)) == 53);
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
