From: Gisle Aas <gisle@aas.no>
Date: Wed, 11 Apr 2001 11:13:24 +0000 (-0700)
Subject: Re: [PATCH] [ID 20010410.001] Not OK: perl v5.7.1 on i386-freebsd 4.3-rc (UNINSTALLED)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c1098f14447ede2cd0b82d185d36e3fcac2ab88;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/MIME/Base64/Base64.xs b/ext/MIME/Base64/Base64.xs
index 6fae83d..e7ffbb5 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;