Fwd: [PATCH-2] Re: testing $/ with in memory files
authorBram <perl-rt@wizbit.be>
Mon, 26 May 2008 09:12:58 +0000 (11:12 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 8 Jun 2008 13:51:55 +0000 (13:51 +0000)
Message-ID: <20080526091258.vbcecy2dc00gwg08@horde.wizbit.be>

p4raw-id: //depot/perl@34024

t/base/rs.t

index 1ed888d..2c5b939 100755 (executable)
@@ -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++;
   }
 }