Unknown discipline ':utf8' w/ maint perl w/o perlio

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index da9cd80..353e2a9 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1165,7 +1165,7 @@ fail_discipline:
                if (!end)
                    end = s+len;
 #ifndef PERLIO_LAYERS
-               Perl_croak(aTHX_ "Unknown discipline '%.*s'", end-s, s);
+               Perl_croak(aTHX_ "IO layers (like '%.*s') unavailable", end-s, s);
 #else
                s = end;
 #endif