perl-Crypt-Random-no_Class_Loader.patch

   1 diff -burN Crypt-Random-1.23.orig/lib/Crypt/Random.pm Crypt-Random-1.23/lib/Crypt/Random.pm
   2 --- Crypt-Random-1.23.orig/lib/Crypt/Random.pm  2004-11-01 22:51:54.875080848 +0100
   3 +++ Crypt-Random-1.23/lib/Crypt/Random.pm       2004-11-01 22:55:04.162304816 +0100
   4 @@ -14,7 +14,7 @@
   5  use Math::Pari qw(PARI floor Mod pari2pv pari2num lift);
   6  use Carp;
   7  use Data::Dumper;
   8 -use Class::Loader;
   9 +#use Class::Loader;
  10  use Crypt::Random::Generator;
  11  *import      = \&Exporter::import;
  12
  13 @@ -42,12 +42,13 @@
  14      local $| = 1;
  15
  16      my $provider = _pickprovider(%params);
  17 -    my $loader = new Class::Loader;
  18 -    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider",
  19 -                              Args => [ map { $_ => $params{$_} }
  20 -                                qw(Strength Provider) ] )
  21 -
  22 -        or die "Unable to load module Crypt::Random::Provider::$provider - $!";
  23 +#    my $loader = new Class::Loader;
  24 +#    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider",
  25 +#                              Args => [ map { $_ => $params{$_} }
  26 +#                                qw(Strength Provider) ] )
  27 +       eval "require Crypt::Random::Provider::$provider"
  28 +        or die "Unable to load module Crypt::Random::Provider::$provider - $@";
  29 +    my $po = "Crypt::Random::Provider::$provider"->new(%params);
  30      my $r = $po->get_data( %params );
  31
  32      my $size     = $params{Size};
  33 @@ -109,9 +110,12 @@
  34      $params{Verbosity} = 0 unless $params{Verbosity};
  35
  36      my $provider = _pickprovider(%params);
  37 -    my $loader = new Class::Loader;
  38 -    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider",
  39 -                              Args => [ %params ] );
  40 +#    my $loader = new Class::Loader;
  41 +#    my $po = $loader->_load ( Module => "Crypt::Random::Provider::$provider",
  42 +#                              Args => [ %params ] );
  43 +       eval "require Crypt::Random::Provider::$provider"
  44 +        or die "Unable to load module Crypt::Random::Provider::$provider - $@";
  45 +       my $po = "Crypt::Random::Provider::$provider"->new(%params);
  46      return $po->get_data( %params );
  47
  48
  49 diff -burN Crypt-Random-1.23.orig/Makefile.PL Crypt-Random-1.23/Makefile.PL
  50 --- Crypt-Random-1.23.orig/Makefile.PL  2004-11-01 22:51:54.877080544 +0100
  51 +++ Crypt-Random-1.23/Makefile.PL       2004-11-01 22:55:14.223775240 +0100
  52 @@ -7,6 +7,6 @@
  53      'VERSION_FROM' => 'lib/Crypt/Random.pm',
  54      'EXE_FILES'    => [ 'bin/makerandom' ],
  55      'PREREQ_PM'    => { 'Math::Pari' => '2.001804',
  56 -                        'Class::Loader' => '2.00'
  57 +#                        'Class::Loader' => '2.00'
  58                        }
  59  );