Compiler denit.

p4raw-id: //depot/perl@7743

diff --git a/perlio.c b/perlio.c
index 710403f..b386deb 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -33,6 +33,8 @@ int
 PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode, const char *names)
 {
  Perl_croak(aTHX_ "Cannot apply \"%s\" in non-PerlIO perl",names);
+ /* NOTREACHED */
+ return -1; 
 }
 #endif