use is a compile-time thing.

p4raw-id: //depot/perl@10426

diff --git a/ext/MIME/Base64/QuotedPrint.pm b/ext/MIME/Base64/QuotedPrint.pm
index b3ff992..21110a0 100644 (file)
--- a/ext/MIME/Base64/QuotedPrint.pm
+++ b/ext/MIME/Base64/QuotedPrint.pm
@@ -65,7 +65,7 @@ modify it under the same terms as Perl itself.
 use strict;
 use vars qw(@ISA @EXPORT $VERSION);
 if (ord('A') == 193) { # on EBCDIC machines we need translation help
-    use Encode ();
+    require Encode; import Encode;
 }
 
 require Exporter;