[ic] MD5-problem

[Peter Hellman]

Hi !
I have a minivend 3.14 running, where MD5 is running smoothly.
Now I want to upgrafe my site to Interchange 4.6.

My ISP have installed Bundle::Interchange, that means that the 
nesessary modules should be there.

Hereīs my problem:
I can make a script as follows, giving me the right value back:
.....
#!/usr/local/bin/perl

use Digest::MD5 qw(md5_hex);

my $val = 123456789;
my $hash = md5_hex($val);
print $hash, "\n";
.....

Now, when I try to write a subroutine like:
......
UserTag md5hash Interpolate
UserTag md5hash HasEndTag
UserTag md5hash Routine <<EOF
use Digest::MD5 qw(md5_hex);
sub {
my $val = shift;
my $hash = md5_hex($val);
return $hash;
}
EOF
.....
in the catalog.cfg it doesnīt work at all.

When restarting the server I get:
.....
Configuring catalog kauppa...UserTag 'md5hash' subroutine failed 
safe check: require trapped by operation mask at (eval 211) line 1, 
<CONFIG> line 93.

In line 93 of the configuration file 'catalog.cfg':
UserTag md5hash Routine <<EOF
......
Please help me, I donīt know where to look for the "error".
Thanks in advance !
Peter Hellman


        -   Today is the first day of the rest of your life.   -