X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utf8.c;h=212c55549b03788412b695dc88164d37080322bd;hb=c22a0cd5b5367764e384c02fc6f17451ad760484;hp=ff113f9fdfbc3542f32000cd1de7d537e205115d;hpb=aa6ffa1650ac66b040000b508f9d85569d9fe839;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utf8.c b/utf8.c
index ff113f9..212c555 100644
--- a/utf8.c
+++ b/utf8.c
@@ -670,6 +670,13 @@ Perl_swash_init(pTHX_ char* pkg, char* name, SV *listsv, I32 minbits, I32 none)
     SV* retval;
     char tmpbuf[256];
     dSP;    
+
+    if (!gv_stashpv(pkg, 0)) {	/* demand load utf8 */
+	ENTER;
+	Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpv(pkg,0), Nullsv);
+	LEAVE;
+    }
+    SPAGAIN;
     PUSHSTACKi(PERLSI_MAGIC);
     PUSHMARK(SP);
     EXTEND(SP,5);