From: Bram <perl-rt@wizbit.be>
Date: Sat, 14 Jun 2008 18:20:05 +0000 (+0200)
Subject: Re: testing $/ with in memory files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd1a9f552fc30b37bf1b6c770f1367c112fd1b1d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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++;