mhnull.pl Patch for MHonArc v2.4.8

I must have been smoking something because the mhnull.pl filter in
v2.4.8 release of MHonArc contains Perl syntax errors.  The mhnull.pl
filter is not referenced at all by the default MIMEFILTERS settings,
but it is provided to allow you to exclude data-types from being
archived.

The SCCS ID of the mhnull.pl file with the errors is:

        @(#) mhnull.pl 1.4 01/04/10 21:36:50

Attached is a patch to mhnull.pl that should fix the syntax errors.

--ewh

*** mhnull.pl.org       Mon Apr 23 10:44:40 2001
--- mhnull.pl   Mon Apr 23 10:46:02 2001
***************
*** 34,43 ****
  
  sub filter {
      local($header, *fields, *data, $isdecode, $args) = @_;
!     my($ctype) = ($fields{'content-type'} =~ m%^\s*([\w\-\./]+)%;
      my($disp, $nameparm) = &readmail::MAILhead_get_disposition(*fields);
      join("", '<p><tt>&lt;&lt;',
!            ($disp ? "$disp: ", ""),
             ($nameparm ? $nameparm : $ctype),
             '&gt;&gt;</tt></p>');
  }
--- 34,43 ----
  
  sub filter {
      local($header, *fields, *data, $isdecode, $args) = @_;
!     my($ctype) = $fields{'content-type'} =~ m%^\s*([\w\-\./]+)%;
      my($disp, $nameparm) = &readmail::MAILhead_get_disposition(*fields);
      join("", '<p><tt>&lt;&lt;',
!            ($disp ? "$disp: " : ""),
             ($nameparm ? $nameparm : $ctype),
             '&gt;&gt;</tt></p>');
  }