mhonarc-users

Re: Cant create archive anymore

2000-02-24 20:32:22
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 ----
<Prev in Thread] Current Thread [Next in Thread>