r13682 - in /trunk/libcrypt-openssl-random-perl: Changes LICENSE MANIFEST META.yml Random.pm Random.xs debian/changelog test.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sun Jan 27 19:09:15 UTC 2008
Author: dmn
Date: Sun Jan 27 19:09:14 2008
New Revision: 13682
URL: http://svn.debian.org/wsvn/?sc=1&rev=13682
Log:
New upstream release
Added:
trunk/libcrypt-openssl-random-perl/LICENSE
- copied unchanged from r13681, branches/upstream/libcrypt-openssl-random-perl/current/LICENSE
trunk/libcrypt-openssl-random-perl/META.yml
- copied unchanged from r13681, branches/upstream/libcrypt-openssl-random-perl/current/META.yml
Modified:
trunk/libcrypt-openssl-random-perl/Changes
trunk/libcrypt-openssl-random-perl/MANIFEST
trunk/libcrypt-openssl-random-perl/Random.pm
trunk/libcrypt-openssl-random-perl/Random.xs
trunk/libcrypt-openssl-random-perl/debian/changelog
trunk/libcrypt-openssl-random-perl/test.pl
Modified: trunk/libcrypt-openssl-random-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libcrypt-openssl-random-perl/Changes?rev=13682&op=diff
==============================================================================
--- trunk/libcrypt-openssl-random-perl/Changes (original)
+++ trunk/libcrypt-openssl-random-perl/Changes Sun Jan 27 19:09:14 2008
@@ -1,6 +1,10 @@
Revision history for Perl extension Crypt::OpenSSL::Random.
-0.03 Thu Sep 06 23:05:36
+0.04 Sun May 20 13:41:04 2007
+ - Add a LICENSE file.
+ - Better use of types.
+
+0.03 Thu Sep 06 23:05:36 2001
- Added documentation
0.02 Mon Apr 9 18:55:30 2001
@@ -9,4 +13,3 @@
0.01 Sun Apr 8 15:25:10 2001
- original version; created by h2xs 1.20 with options
-n Crypt::OpenSSL::Random
-
Modified: trunk/libcrypt-openssl-random-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libcrypt-openssl-random-perl/MANIFEST?rev=13682&op=diff
==============================================================================
--- trunk/libcrypt-openssl-random-perl/MANIFEST (original)
+++ trunk/libcrypt-openssl-random-perl/MANIFEST Sun Jan 27 19:09:14 2008
@@ -1,6 +1,8 @@
Changes
+LICENSE
MANIFEST
Makefile.PL
Random.pm
Random.xs
test.pl
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libcrypt-openssl-random-perl/Random.pm
URL: http://svn.debian.org/wsvn/trunk/libcrypt-openssl-random-perl/Random.pm?rev=13682&op=diff
==============================================================================
--- trunk/libcrypt-openssl-random-perl/Random.pm (original)
+++ trunk/libcrypt-openssl-random-perl/Random.pm Sun Jan 27 19:09:14 2008
@@ -18,7 +18,7 @@
@EXPORT_OK = qw( random_bytes random_pseudo_bytes random_seed
random_egd random_status );
-$VERSION = '0.03';
+$VERSION = '0.04';
bootstrap Crypt::OpenSSL::Random $VERSION;
Modified: trunk/libcrypt-openssl-random-perl/Random.xs
URL: http://svn.debian.org/wsvn/trunk/libcrypt-openssl-random-perl/Random.xs?rev=13682&op=diff
==============================================================================
--- trunk/libcrypt-openssl-random-perl/Random.xs (original)
+++ trunk/libcrypt-openssl-random-perl/Random.xs Sun Jan 27 19:09:14 2008
@@ -4,9 +4,9 @@
#include <openssl/rand.h>
-#define PACKAGE_NAME "Crypt::OpenSSL::RSA"
+#define PACKAGE_NAME "Crypt::OpenSSL::RSA"
-MODULE = Crypt::OpenSSL::Random PACKAGE = Crypt::OpenSSL::Random
+MODULE = Crypt::OpenSSL::Random PACKAGE = Crypt::OpenSSL::Random
void
random_bytes(num_bytes_SV)
SV * num_bytes_SV;
@@ -57,7 +57,7 @@
}
}
- # Seed the PRNG with user-provided bytes; returns true if the
+ # Seed the PRNG with user-provided bytes; returns true if the
# seeding was sufficient.
void
@@ -65,7 +65,7 @@
SV * random_bytes_SV;
PPCODE:
{
- int random_bytes_length;
+ Size_t random_bytes_length;
char *random_bytes;
random_bytes = SvPV(random_bytes_SV, random_bytes_length);
RAND_seed(random_bytes, random_bytes_length);
@@ -81,10 +81,9 @@
SV * egd_SV;
PPCODE:
{
- int random_bytes_length;
- char *random_bytes;
+ Size_t egd_length;
int status;
- char *egd = SvPV(egd_SV, random_bytes_length);
+ char *egd = SvPV(egd_SV, egd_length);
status = RAND_egd(egd);
XPUSHs( sv_2mortal( newSViv( status ) ) );
}
@@ -97,4 +96,3 @@
{
XPUSHs( sv_2mortal( newSViv( RAND_status() ) ) );
}
-
Modified: trunk/libcrypt-openssl-random-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libcrypt-openssl-random-perl/debian/changelog?rev=13682&op=diff
==============================================================================
--- trunk/libcrypt-openssl-random-perl/debian/changelog (original)
+++ trunk/libcrypt-openssl-random-perl/debian/changelog Sun Jan 27 19:09:14 2008
@@ -1,11 +1,15 @@
-libcrypt-openssl-random-perl (0.03-2) UNRELEASED; urgency=low
+libcrypt-openssl-random-perl (0.04-1) UNRELEASED; urgency=low
+
+ * Taking over maintainance on request of maintainer.
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza).
* Changed Maintainer to Debian Perl Group
* add debian/watch
- -- Damyan Ivanov <dmn at debian.org> Thu, 24 Jan 2008 21:36:44 +0200
+ * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org> Sun, 27 Jan 2008 21:06:19 +0200
libcrypt-openssl-random-perl (0.03-1) unstable; urgency=low
Modified: trunk/libcrypt-openssl-random-perl/test.pl
URL: http://svn.debian.org/wsvn/trunk/libcrypt-openssl-random-perl/test.pl?rev=13682&op=diff
==============================================================================
--- trunk/libcrypt-openssl-random-perl/test.pl (original)
+++ trunk/libcrypt-openssl-random-perl/test.pl Sun Jan 27 19:09:14 2008
@@ -6,7 +6,7 @@
# 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..1\n"; }
+BEGIN { $| = 1; print "1..5\n"; }
END {print "not ok 1\n" unless $loaded;}
use Crypt::OpenSSL::Random;
$loaded = 1;
@@ -32,12 +32,13 @@
my ($pack, $file, $line) = caller;
print "not ok $number - from $file:$line\n";
}
-}
+}
-Crypt::OpenSSL::Random::random_seed("Here are 19 bytes...");
+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);
+my_test(length(Crypt::OpenSSL::Random::random_bytes(53)) == 53);
+my_test(length(Crypt::OpenSSL::Random::random_pseudo_bytes(53)) == 53);
More information about the Pkg-perl-cvs-commits
mailing list