Commit 53dd5a7a authored by gregor herrmann's avatar gregor herrmann

Imported Upstream version 0.28

parent 9dca17b5
Revision history for Bytes::Random::Secure
0.28 2013-11-21
- Removed silly micro-optimization that was responsible for generating a
warning in Perl versions prior to 5.18.
0.27 2013-10-06
- Merged pull request from David Steinbrunner: specifying meta-spec
so metadata can be seen/used.
......
......@@ -48,5 +48,5 @@
"version" : 2
}
},
"version" : "0.27"
"version" : "0.28"
}
......@@ -28,4 +28,4 @@ requires:
resources:
Metaspec:
version: 2
version: 0.27
version: 0.28
......@@ -25,7 +25,7 @@ our @EXPORT_OK = qw(
our @EXPORT = qw( random_bytes ); ## no critic(export)
our $VERSION = '0.27';
our $VERSION = '0.28';
# Seed size: 256 bits is eight 32-bit integers.
use constant SEED_SIZE => 256; # In bits
......@@ -274,9 +274,7 @@ sub string_from {
croak "Bag's size must be at least 1 character."
if $range < 1;
my $rand_bytes;
vec( $rand_bytes, $bytes, 8 ) = 0; # Pre-extend the string.
$rand_bytes = q{}; # And gurantee it's empty.
my $rand_bytes = q{}; # We need an empty (and defined) string.
for my $random ( $self->_ranged_randoms( $range, $bytes ) ) {
$rand_bytes .= substr( $bag, $random, 1 );
......
......@@ -4,16 +4,22 @@ use warnings;
use Test::More;
if( $] lt '5.018000' ) {
plan skip_all =>
'YAML test not avaiable pre-5.18';
exit(0);
}
if( ! $ENV{RELEASE_TESTING} ) {
plan skip_all =>
'Author only test: META.yml tests run only if RELEASE_TESTING set.';
}
elsif ( ! eval 'use Test::CPAN::Meta::YAML; 1;' ) {
plan skip_all =>
'Author META.yml test requires Test::CPAN::Meta::YAML.'
'Author META.yml test requires Test::CPAN::Meta::YAML.';
}
else {
note 'Testing META.yml';
meta_yaml_ok();
}
meta_yaml_ok();
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment