- up to 1.25

[packages/perl-Crypt-Random.git] / perl-Crypt-Random-no_Class_Loader.patch

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; 
 use Data::Dumper;
-use Class::Loader;
+#use Class::Loader;
 use Crypt::Random::Generator;
 *import      = \&Exporter::import;
 
@@ -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 => [ 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 => [ 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 $r = $po->get_data( %params );
 
     my $size     = $params{Size};
@@ -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"
+        or die "Unable to load module Crypt::Random::Provider::$provider - $@";
+       my $po = "Crypt::Random::Provider::$provider"->new(%params);
     return $po->get_data( %params );
 
 
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' 
                       } 
 );