Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
perl-Mcrypt
Mcrypt-2.5.7.0.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File Mcrypt-2.5.7.0.diff of Package perl-Mcrypt
--- Mcrypt.pm +++ Mcrypt.pm @@ -137,6 +137,10 @@ $arg{'mode_dir'} = '' unless defined($arg{'mode_dir'}); my $td = mcrypt_load( $arg{'algorithm'}, $arg{'algorithm_dir'}, $arg{'mode'}, $arg{'mode_dir'} ); + if(!defined($td)) { + print STDERR "Couldn't load algorithm $arg{'algorithm'}/$arg{'mode'}\n"; + return undef; + } my $mcrypt = bless { TD => $td }, $class; $mcrypt->{Verbose} = 1; $mcrypt->{Verbose} = $arg{'verbose'} if(defined($arg{'verbose'})); --- t/prp-block.t +++ t/prp-block.t @@ -26,6 +26,7 @@ sub doit { my($method, $alg, $mode, $infile, $outfile) = @_; my($td) = Mcrypt::mcrypt_load( $alg, "", $mode, ""); + print STDERR "Couldn't load algorithm $alg/$mode\n" unless defined($td); ok($td, "Loaded $alg/$mode"); $keysize = Mcrypt::mcrypt_get_key_size($td); $ivsize = Mcrypt::mcrypt_get_iv_size($td); --- t/prp-noblock.t +++ t/prp-noblock.t @@ -27,6 +27,7 @@ sub doit { my($method, $alg, $mode, $infile, $outfile) = @_; my($td) = Mcrypt::mcrypt_load( $alg, "", $mode, ""); + print STDERR "Couldn't load algorithm $alg/$mode\n" unless defined($td); ok($td, "Loaded $alg/$mode"); $keysize = Mcrypt::mcrypt_get_key_size($td); $ivsize = Mcrypt::mcrypt_get_iv_size($td);
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor