Change 34054 by [EMAIL PROTECTED] on 2008/06/15 07:57:49
Subject: [PATCH] Re: testing $/ with in memory files
From: Bram <[EMAIL PROTECTED]>
Date: Sat, 14 Jun 2008 18:20:05 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/base/rs.t#13 edit
Differences ...
==== //depot/perl/t/base/rs.t#13 (xtext) ====
Index: perl/t/base/rs.t
--- perl/t/base/rs.t#12~34024~ 2008-06-08 06:51:55.000000000 -0700
+++ perl/t/base/rs.t 2008-06-15 00:57:49.000000000 -0700
@@ -115,11 +115,14 @@
}
-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++;
End of Patch.
