Re: testing $/ with in memory files

Message-ID: <20080614182005.yxuyk1mntwkog0o0@horde.wizbit.be>

p4raw-id: //depot/perl@34054

diff --git a/t/base/rs.t b/t/base/rs.t
index 2c5b939..51681e9 100755 (executable)
--- a/t/base/rs.t
+++ b/t/base/rs.t
@@ -115,11 +115,14 @@ $/ = "\n";
 }
 
 
-if (not eval q/use PerlIO::scalar; 1/) {
+if (not eval q/use PerlIO::scalar; use PerlIO::via::scalar; 1/) {
   # In-memory files necessitate PerlIO::via::scalar, thus a perl with
   # perlio and dynaloading enabled. miniperl won't be able to run this
   # test, so skip it
 
+  # PerlIO::via::scalar has to be tested as well.
+  # use PerlIO::scalar succeeds with ./TEST and with ./perl harness but not with ./perl
+
   for $test ($test_count .. $test_count + ($test_count_end - $test_count_start - 1)) {
     print "ok $test # skipped - Can't test in memory file with miniperl/without PerlIO::Scalar\n";
     $test_count++;