- updated to 1.23

Changed files:
    perl-Crypt-Random-no_Class_Loader.patch -> 1.2
    perl-Crypt-Random.spec -> 1.26

diff --git a/perl-Crypt-Random-no_Class_Loader.patch b/perl-Crypt-Random-no_Class_Loader.patch
index 34efcce9ee28773544c9f3ed0864579b82b84d08..3cd4f34674f82d22d6715c25f52b3ba35e048f4c 100644 (file)
--- a/perl-Crypt-Random-no_Class_Loader.patch
+++ b/perl-Crypt-Random-no_Class_Loader.patch
@@ -1,6 +1,6 @@
-diff -urN Crypt-Random-1.13/lib/Crypt/Random.pm Crypt-Random-1.13.no_Class_Loader/lib/Crypt/Random.pm
---- Crypt-Random-1.13/lib/Crypt/Random.pm      2003-03-11 19:41:13.000000000 +0100
-+++ Crypt-Random-1.13.no_Class_Loader/lib/Crypt/Random.pm      2004-05-17 19:22:19.491438744 +0200
+diff -burN Crypt-Random-1.23.orig/lib/Crypt/Random.pm Crypt-Random-1.23/lib/Crypt/Random.pm
+--- Crypt-Random-1.23.orig/lib/Crypt/Random.pm 2004-11-01 22:51:54.875080848 +0100
++++ Crypt-Random-1.23/lib/Crypt/Random.pm      2004-11-01 22:55:04.162304816 +0100
 @@ -14,7 +14,7 @@
  use Math::Pari qw(PARI floor Mod pari2pv pari2num lift); 
  use Carp; 
@@ -10,47 +10,50 @@ diff -urN Crypt-Random-1.13/lib/Crypt/Random.pm Crypt-Random-1.13.no_Class_Loade
  use Crypt::Random::Generator;
  *import      = \&Exporter::import;
  
-@@ -42,10 +42,12 @@
+@@ -42,12 +42,13 @@
      local $| = 1;
  
      my $provider = _pickprovider(%params);
 -    my $loader = new Class::Loader;
 -    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider", 
--                              Args => [ %params ] ) 
+-                              Args => [ map { $_ => $params{$_} }
+-                                qw(Strength Provider) ] )
+-
 -        or die "Unable to load module Crypt::Random::Provider::$provider - $!";
-+#   my $loader = new Class::Loader;
-+#   my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider", 
-+#                             Args => [ %params ] ) 
++#    my $loader = new Class::Loader;
++#    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider", 
++#                              Args => [ map { $_ => $params{$_} }
++#                                qw(Strength Provider) ] )
 +      eval "require Crypt::Random::Provider::$provider"
 +        or die "Unable to load module Crypt::Random::Provider::$provider - $@";
-+      my $po = "Crypt::Random::Provider::$provider"->new(%params);
++    my $po = "Crypt::Random::Provider::$provider"->new(%params);
      my $r = $po->get_data( %params );
  
      my $size     = $params{Size};
-@@ -85,9 +87,12 @@
+@@ -109,9 +110,12 @@
      $params{Verbosity} = 0 unless $params{Verbosity};
  
      my $provider = _pickprovider(%params); 
 -    my $loader = new Class::Loader;
 -    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider", 
 -                              Args => [ %params ] );
-+#   my $loader = new Class::Loader;
-+#   my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider", 
-+#                             Args => [ %params ] );
-+      eval "require Crypt::Random::Provider::$provider"
++#    my $loader = new Class::Loader;
++#    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider", 
++#                              Args => [ %params ] );
++       eval "require Crypt::Random::Provider::$provider"
 +        or die "Unable to load module Crypt::Random::Provider::$provider - $@";
-+      my $po = "Crypt::Random::Provider::$provider"->new(%params);
++       my $po = "Crypt::Random::Provider::$provider"->new(%params);
      return $po->get_data( %params );
  
  
-diff -urN Crypt-Random-1.13/Makefile.PL Crypt-Random-1.13.no_Class_Loader/Makefile.PL
---- Crypt-Random-1.13/Makefile.PL      2001-06-22 05:44:50.000000000 +0200
-+++ Crypt-Random-1.13.no_Class_Loader/Makefile.PL      2004-05-17 19:20:58.328777344 +0200
+diff -burN Crypt-Random-1.23.orig/Makefile.PL Crypt-Random-1.23/Makefile.PL
+--- Crypt-Random-1.23.orig/Makefile.PL 2004-11-01 22:51:54.877080544 +0100
++++ Crypt-Random-1.23/Makefile.PL      2004-11-01 22:55:14.223775240 +0100
 @@ -7,6 +7,6 @@
      'VERSION_FROM' => 'lib/Crypt/Random.pm',
      'EXE_FILES'    => [ 'bin/makerandom' ],
      'PREREQ_PM'    => { 'Math::Pari' => '2.001804', 
 -                        'Class::Loader' => '2.00' 
-+#                       'Class::Loader' => '2.00' 
++#                        'Class::Loader' => '2.00' 
                        } 
  );

diff --git a/perl-Crypt-Random.spec b/perl-Crypt-Random.spec
index a72ee8958ed817024008098000b010d3da161247..4238b8dc86a32399388f4a24e71d4d4958c7d7e7 100644 (file)
--- a/perl-Crypt-Random.spec
+++ b/perl-Crypt-Random.spec
@@ -8,13 +8,13 @@
 Summary:       Crypt::Random - cryptographically secure, true random number generator
 Summary(pl):   Crypt::Random - bezpieczny kryptograficznie, prawdziwy generator liczb losowych
 Name:          perl-Crypt-Random
-Version:       1.20
+Version:       1.23
 Release:       1
 # same as perl
 License:       GPL v1+ or Artistic
 Group:         Development/Languages/Perl
 Source0:       http://www.cpan.org/modules/by-module/%{pdir}/%{pdir}-%{pnam}-%{version}.tar.gz
-# Source0-md5: d39223083dee595ff6949655e9339761
+# Source0-md5: 29d342b8cbe27674c235d4d55eef9d2d
 Patch0:                %{name}-no_Class_Loader.patch
 %if %{with tests}
 BuildRequires: perl-Math-Pari >= 2.001804