From: Stas Bekman <stas@stason.org>
Date: Fri, 12 Sep 2003 13:44:11 +0000 (-0700)
Subject: Unknown discipline ':utf8' w/ maint perl w/o perlio
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=363c40c40eaf5d0cfd92f460a3f838c41f9756ad;p=p5sagit%2Fp5-mst-13.2.git

Unknown discipline ':utf8' w/ maint perl w/o perlio
Message-ID: <3F62301B.3080604@stason.org>

s/discipline/IO layer/, instead of "unknown" say "unavailable",
and have the fuller explanation in perldiag.

p4raw-id: //depot/perl@21203
---

diff --git a/doio.c b/doio.c
index da9cd80..353e2a9 100644
--- 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
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index a88b0d8..f46a70f 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1914,6 +1914,12 @@ strange for a machine that supports C.
 (W unopened) You tried ioctl() on a filehandle that was never opened.
 Check you control flow and number of arguments.
 
+=item IO layers (like "%s") unavailable
+
+(F) Your Perl has not been configured to have PerlIO, and therefore
+you cannot use IO layers.  To have PerlIO Perl must be configured
+with 'useperlio'.
+
 =item IO::Socket::atmark not implemented on this architecture
 
 (F) Your machine doesn't implement the sockatmark() functionality,