--- MIME-tools-6.200_02/lib/MIME/Tools.pm-	2003-06-27 17:54:33 +0000

+++ MIME-tools-6.200_02/lib/MIME/Tools.pm	2004-02-20 21:48:21 +0000

@@ -42,7 +42,7 @@ $VERSION = substr q$Revision: 6.110 $, 1

 ### Toolkit-wide logging:

-BEGIN {

+INIT {

     $LOG = new MIME::Tools::ToolkitLogger;

 }

--- MIME-tools-6.200_02/t/ParamValHeader.t-	2003-06-27 17:24:47 +0000

+++ MIME-tools-6.200_02/t/ParamValHeader.t	2004-02-20 21:51:12 +0000

@@ -41,13 +41,13 @@ if (1) {

     my $fieldtxt = <<EOF;

 Message/Partial;

     number=2; total=3;

-    id="oc=jpbe0M2Yt4s@thumper.bellcore.com"

+    id="oc=jpbe0M2Yt4s\@thumper.bellcore.com"

 EOF

     my $params = MIME::Field::ParamVal->parse_params($fieldtxt);

     $T->ok_eq($$params{_}, 'Message/Partial');

     $T->ok_eq($$params{'number'}, 2);

     $T->ok_eq($$params{'total'}, 3);

-    $T->ok_eq($$params{'id'}, "oc=jpbe0M2Yt4s@thumper.bellcore.com");

+    $T->ok_eq($$params{'id'}, "oc=jpbe0M2Yt4s\@thumper.bellcore.com");

 }

 $T->end;

--- MIME-tools-6.200_02/lib/MIME/Tools/MailFieldTokenizerForRFC2045.pm-	2003-06-13 16:02:11 +0000

+++ MIME-tools-6.200_02/lib/MIME/Tools/MailFieldTokenizerForRFC2045.pm	2004-02-20 22:23:17 +0000

@@ -54,7 +54,17 @@ our %EXPORT_TAGS = 

      'consts'=> [qw(

 		    $TC_NULL

 		    )],

-     'all'   => [qw( types fields consts)],

+     'all'   => [qw(

+		    $TT_NULL    

+		    $TT_ATOM    

+		    $TT_SPECIAL 

+		    $TT_SPACE   

+		    $TT_COMMENT 

+		    $TT_QUOTED  

+		    $TF_TYPE

+		    $TF_TEXT

+		    $TC_NULL

+		    )],

      );

 Exporter::export_ok_tags('types','fields','all');