On February 24, 2000 at 16:44, "Walid Thabet" wrote:
> Can't modify keys in scalar assignment at
> /inm/users/wthabet/lib/mhutil.pl line 123, near "$hs;"
...
> This is perl, version 5.003 with EMBED
> built under hpux at Nov 21 1996 13:03:00
> + suidperl security patch
You should upgrade perl. 5.003 is old and is known to have some
security issues with it (along with bugs) fixed in later releases.
Until then, you can apply the following patch to mhutil.pl:
*** mhutil.pl.org Thu Feb 24 17:51:55 2000
--- mhutil.pl Thu Feb 24 17:52:51 2000
***************
*** 118,127 ****
} elsif ($subsort) {
## Subject order
my(%sub, $idx, $sub);
- eval {
- my $hs = scalar(%Subject); $hs =~ s|^[^/]+/||;
- keys(%sub) = $hs;
- };
while (($idx, $sub) = each(%Subject)) {
$sub = lc $sub;
1 while $sub =~ s/$SubReplyRxp//io;
--- 118,123 ----
***************
*** 141,150 ****
} elsif ($authsort) {
## Author order
my(%from, $idx, $from);
- eval {
- my $hs = scalar(%From); $hs =~ s|^[^/]+/||;
- keys(%from) = $hs;
- };
while (($idx, $from) = each(%From)) {
$from = lc extract_email_name($from);
$from{$idx} = $from;
--- 137,142 ----
