Re: [PATCH] MIME::Base64 PERL_NO_GET_CONTEXT

Message-ID: <lrk712bjs1.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@22617

diff --git a/ext/MIME/Base64/Base64.pm b/ext/MIME/Base64/Base64.pm
index 596a5df..a8b1fac 100644 (file)
--- a/ext/MIME/Base64/Base64.pm
+++ b/ext/MIME/Base64/Base64.pm
@@ -1,6 +1,6 @@
 package MIME::Base64;
 
-# $Id: Base64.pm,v 3.0 2004/01/14 11:59:07 gisle Exp $
+# $Id: Base64.pm,v 3.1 2004/03/29 11:55:49 gisle Exp $
 
 use strict;
 use vars qw(@ISA @EXPORT $VERSION);
@@ -10,7 +10,7 @@ require DynaLoader;
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = qw(encode_base64 decode_base64);
 
-$VERSION = '3.00_01';
+$VERSION = '3.01';
 
 MIME::Base64->bootstrap($VERSION);
 

diff --git a/ext/MIME/Base64/Base64.xs b/ext/MIME/Base64/Base64.xs
index 5a59b1e..b580539 100644 (file)
--- a/ext/MIME/Base64/Base64.xs
+++ b/ext/MIME/Base64/Base64.xs
@@ -1,4 +1,4 @@
-/* $Id: Base64.xs,v 3.0 2004/01/14 11:59:07 gisle Exp $
+/* $Id: Base64.xs,v 3.2 2004/03/29 11:35:13 gisle Exp $
 
 Copyright 1997-2004 Gisle Aas
 
@@ -28,6 +28,7 @@ metamail, which comes with this message:
 #ifdef __cplusplus
 extern "C" {
 #endif
+#define PERL_NO_GET_CONTEXT     /* we want efficiency */
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"

diff --git a/ext/MIME/Base64/Changes b/ext/MIME/Base64/Changes
index 067fc04..73e6d7e 100644 (file)
--- a/ext/MIME/Base64/Changes
+++ b/ext/MIME/Base64/Changes
@@ -1,3 +1,16 @@
+2004-03-29   Gisle Aas <gisle@ActiveState.com>
+
+   Release 3.01
+
+   By compiling the extension with PERL_NO_GET_CONTEXT we can
+   make it slightly faster on a threaded perl.  No change on a
+   regular perl.  Patch provided by Beau E. Cox <beau@beaucox.com>.
+
+   Fixed missing ";" with assert.   Patch provided by
+   Brendan O'Dea <bod@debian.org>.
+
+
+
 2004-01-14   Gisle Aas <gisle@ActiveState.com>
 
    Release 3.00

diff --git a/ext/MIME/Base64/QuotedPrint.pm b/ext/MIME/Base64/QuotedPrint.pm
index 5a6bbfa..63a69a2 100644 (file)
--- a/ext/MIME/Base64/QuotedPrint.pm
+++ b/ext/MIME/Base64/QuotedPrint.pm
@@ -1,6 +1,6 @@
 package MIME::QuotedPrint;
 
-# $Id: QuotedPrint.pm,v 3.0 2004/01/14 11:59:07 gisle Exp $
+# $Id: QuotedPrint.pm,v 3.1 2004/03/29 11:55:49 gisle Exp $
 
 use strict;
 use vars qw(@ISA @EXPORT $VERSION);
@@ -9,7 +9,7 @@ require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(encode_qp decode_qp);
 
-$VERSION = "3.00";
+$VERSION = "3.01";
 
 use MIME::Base64;  # will load XS version of {en,de}code_qp()