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

gregoa pushed a commit to branch master
in repository libcrypt-urandom-perl.

commit 1da4c75d214f3275cae89d782ad4738bfe4a8045
Author: gregor herrmann <gre...@debian.org>
Date:   Sun Jun 28 14:32:50 2015 +0200

    Imported Upstream version 0.36
---
 Changes              | 3 +++
 META.json            | 2 +-
 META.yml             | 2 +-
 lib/Crypt/URandom.pm | 8 ++++----
 4 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/Changes b/Changes
index fff3438..817bcba 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Crypt-URandom
 
+0.36 - Mon Jun 01 21:37:26 2011
+       Fixing bug that caused errors when requesting urandom before and after 
forking
+
 0.35 - Thu May 14 06:07:03 2011
        Corrected Manifest - RT#101208
        Removed Build.PL - RT#104406
diff --git a/META.json b/META.json
index 35ca1b2..d4a5332 100644
--- a/META.json
+++ b/META.json
@@ -40,5 +40,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "0.35"
+   "version" : "0.36"
 }
diff --git a/META.yml b/META.yml
index ff786ff..ae5ee04 100644
--- a/META.yml
+++ b/META.yml
@@ -22,4 +22,4 @@ requires:
   English: '0'
   FileHandle: '0'
   Test::More: '0'
-version: '0.35'
+version: '0.36'
diff --git a/lib/Crypt/URandom.pm b/lib/Crypt/URandom.pm
index 6204775..aff67ea 100644
--- a/lib/Crypt/URandom.pm
+++ b/lib/Crypt/URandom.pm
@@ -11,7 +11,7 @@ our @EXPORT_OK = qw(
 );
 our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK, );
 
-our $VERSION  = '0.35';
+our $VERSION  = '0.36';
 our @CARP_NOT = ('Crypt::URandom');
 
 sub CRYPT_SILENT      { return 64; }               # hex 40
@@ -122,9 +122,9 @@ sub urandom {
         Carp::croak(
             'The length argument must be supplied and must be an integer');
     }
-    if ( !$_initialised ) {
+    if ( !( ( defined $_initialised ) && ( $_initialised == $PROCESS_ID ) ) ) {
         _init();
-        $_initialised = 1;
+        $_initialised = $PROCESS_ID;
     }
     if ( $OSNAME eq 'MSWin32' ) {
         my $buffer = chr(0) x $length;
@@ -180,7 +180,7 @@ Crypt::URandom - Provide non blocking randomness
 
 =head1 VERSION
 
-This document describes Crypt::URandom version 0.35
+This document describes Crypt::URandom version 0.36
 
 
 =head1 SYNOPSIS

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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to