X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FMIME%2FBase64%2Ft%2Fbase64.t;h=fdbe88ff0708b7b432b9e085c21dd49d23bee447;hb=80a5d8e74b5512d4ab704d0e83466ae41247ce55;hp=7a61fe957692153df8ce812e7c61b7ff584ba891;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/MIME/Base64/t/base64.t b/ext/MIME/Base64/t/base64.t
index 7a61fe9..fdbe88f 100644
--- a/ext/MIME/Base64/t/base64.t
+++ b/ext/MIME/Base64/t/base64.t
@@ -1,8 +1,11 @@
 BEGIN {
-        chdir 't' if -d 't';
-        @INC = '../lib';
+    if ($ENV{'PERL_CORE'}){
+        chdir 't';
+        unshift @INC, '../lib';
+    }
 }
 
+use strict;
 use MIME::Base64;
 
 print "1..283\n";
@@ -10,7 +13,7 @@ print "1..283\n";
 print "# Testing MIME::Base64-", $MIME::Base64::VERSION, "\n";
 
 BEGIN {
- if (ord('A') == 41) {
+ if (ord('A') == 0x41) {
   *ASCII = sub { return $_[0] };
  }
  else {
@@ -19,7 +22,11 @@ BEGIN {
  }
 }
 
-$testno = 1;
+my $testno = 1;
+# instead of "for my $test (...)" , which is my preference.
+# Not sure which perl version has started supporting.  MIME::Base64
+# was supposed to work with very old perl5, right?
+my $test;
 
 encodeTest();
 decodeTest();