Change 34024 by [EMAIL PROTECTED] on 2008/06/08 13:51:55
Subject: Fwd: [PATCH-2] Re: testing $/ with in memory files
From: Bram <[EMAIL PROTECTED]>
Date: Mon, 26 May 2008 09:12:58 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/base/rs.t#12 edit
Differences ...
==== //depot/perl/t/base/rs.t#12 (xtext) ====
Index: perl/t/base/rs.t
--- perl/t/base/rs.t#11~33769~ 2008-04-30 03:08:22.000000000 -0700
+++ perl/t/base/rs.t 2008-06-08 06:51:55.000000000 -0700
@@ -115,13 +115,13 @@
}
-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++;
}
}
End of Patch.
