Fixes for open.pm which attempts to load layers:

 1. C equivalent of local $SIG{__WARN__} = sub {} 
    while loading layers to supress warnings lib/open.t does
    not want.
 2. The loading scheme does not recurse now so look for 
    new symptom of bad layer which is that a good module 
    fails to load (as we cannot open any files).

NOTE: In my opinion open.pm should probably die on bad layer
spec rather than just (maybe) warning and then allowing opens
to fail.

p4raw-id: //depot/perlio@18560

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/open.t b/lib/open.t
index 3f0fdf2827..68b3eca387 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -175,9 +175,9 @@ SKIP: {
     skip("no perlio", 1) unless (find PerlIO::Layer 'perlio');
     use open IN => ':non-existent';
     eval {
-	require Anything;
+	require Symbol; # Anything that exists but we havn't loaded
     };
-    like($@, qr/Recursive call/i,
+    like($@, qr/Can't locate Symbol|Recursive call/i,
 	 "test for an endless loop in PerlIO_find_layer");
 }