2 files changed, 7 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 8691a15645..e595a0a289 100644
--- a/perl.c
+++ b/perl.c
@@ -2055,6 +2055,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #if defined(__SYMBIAN32__)
     PL_unicode = PERL_UNICODE_STD_FLAG; /* See PERL_SYMBIAN_CONSOLE_UTF8. */
 #endif
+#  ifndef PERL_IS_MINIPERL
     if (PL_unicode) {
 	 /* Requires init_predump_symbols(). */
 	 if (!(PL_unicode & PERL_UNICODE_LOCALE_FLAG) || PL_utf8locale) {
@@ -2093,6 +2094,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 	      }
 	 }
     }
+#endif
 
     {
 	const char *s;
diff --git a/t/run/switchC.t b/t/run/switchC.t
index 7aabbc0c80..213bdbc3c9 100644
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -9,6 +9,11 @@ BEGIN {
 	print "1..0 # Skip: not perlio\n";
 	exit 0;
     }
+    if ($ENV{PERL_CORE_MINITEST}) {
+	print "1..0 # Skip : -C and \$ENV{PERL_UNICODE} are disabled on miniperl\n";
+	exit 0;
+    }
+	
 }
 
 BEGIN { require "./test.pl"; }