1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
Author: gregor herrmann <gregoa@debian.org>
Description: creating a new object works differently ...
Forwarded: no
Origin: vendor
--- a/t/encrypt.t
+++ b/t/encrypt.t
@@ -41,12 +41,12 @@
$@ = '';
my $cipher = undef;
eval 'use Crypt::IDEA;'
- . ' $cipher = IDEA->new(pack("H*",'
+ . ' $cipher = Crypt::IDEA->new(pack("H*",'
. ' "0123456789abcdef0123456789abcdef"));';
if (!$cipher) {
$@ = '';
eval 'use Crypt::DES;'
- . ' $cipher = DES->new(pack("H*", "0123456789abcdef"));';
+ . ' $cipher = Crypt::DES->new(pack("H*", "0123456789abcdef"));';
if (!$cipher) {
print "1..0\n";
exit 0;
--- a/t/noStorableOoEnc.t
+++ b/t/noStorableOoEnc.t
@@ -42,12 +42,12 @@
$@ = '';
my $cipher = undef;
eval 'use Crypt::IDEA;'
- . ' $cipher = IDEA->new(pack("H*",'
+ . ' $cipher = Crypt::IDEA->new(pack("H*",'
. ' "0123456789abcdef0123456789abcdef"));';
if (!$cipher) {
$@ = '';
eval 'use Crypt::DES;'
- . ' $cipher = DES->new(pack("H*", "0123456789abcdef"));';
+ . ' $cipher = Crypt::DES->new(pack("H*", "0123456789abcdef"));';
if (!$cipher) {
print "1..0\n";
exit 0;
|
