summaryrefslogtreecommitdiff
path: root/ext/MIME/Base64
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>2001-04-11 04:13:24 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-04-12 00:27:39 +0000
commit2c1098f14447ede2cd0b82d185d36e3fcac2ab88 (patch)
tree0b01b87c4a3ba51ebacc90c017dc319403b6b85d /ext/MIME/Base64
parent08f6300ee53c30dd46bb46d4f35203ecd0b1ce19 (diff)
downloadperl-2c1098f14447ede2cd0b82d185d36e3fcac2ab88.tar.gz
Re: [PATCH] [ID 20010410.001] Not OK: perl v5.7.1 on i386-freebsd 4.3-rc (UNINSTALLED)
Message-ID: <lrbsq371a3.fsf@caliper.ActiveState.com> p4raw-id: //depot/perl@9688
Diffstat (limited to 'ext/MIME/Base64')
-rw-r--r--ext/MIME/Base64/Base64.xs8
1 files changed, 1 insertions, 7 deletions
diff --git a/ext/MIME/Base64/Base64.xs b/ext/MIME/Base64/Base64.xs
index 6fae83d730..e7ffbb5535 100644
--- a/ext/MIME/Base64/Base64.xs
+++ b/ext/MIME/Base64/Base64.xs
@@ -1,4 +1,4 @@
-/* $Id: Base64.xs,v 1.18 2001/02/24 06:27:01 gisle Exp $
+/*
Copyright 1997-1999,2001 Gisle Aas
@@ -35,10 +35,6 @@ extern "C" {
}
#endif
-#include "patchlevel.h"
-#if PERL_VERSION <= 4 && !defined(PL_dowarn)
- #define PL_dowarn dowarn
-#endif
#define MAX_LINE 76 /* size of encoded lines */
@@ -89,9 +85,7 @@ encode_base64(sv,...)
int chunk;
CODE:
-#ifdef sv_utf8_downgrade
sv_utf8_downgrade(sv, FALSE);
-#endif
str = SvPV(sv, rlen); /* SvPV(sv, len) gives warning for signed len */
len = (SSize_t)rlen;