From: Bram <perl-rt@wizbit.be>
Date: Mon, 26 May 2008 09:12:58 +0000 (+0200)
Subject: Fwd: [PATCH-2] Re: testing $/ with in memory files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24ead1638d1eb17b67e49c614831261308ed561f;p=p5sagit%2Fp5-mst-13.2.git

Fwd: [PATCH-2] Re: testing $/ with in memory files
Message-ID: <20080526091258.vbcecy2dc00gwg08@horde.wizbit.be>

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

diff --git a/t/base/rs.t b/t/base/rs.t
index 1ed888d..2c5b939 100755
--- a/t/base/rs.t
+++ b/t/base/rs.t
@@ -115,13 +115,13 @@ $/ = "\n";
 }
 
 
-if ($ENV{PERL_CORE_MINITEST} or $ENV{_} =~ m/miniperl/) {
+if (not eval q/use PerlIO::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
 
   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\n";
+    print "ok $test # skipped - Can't test in memory file with miniperl/without PerlIO::Scalar\n";
     $test_count++;
   }
 }