You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by to...@apache.org on 2008/09/30 09:28:54 UTC
svn commit: r700369 - /perl/modperl/trunk/t/response/TestApache/read4.pm
Author: torsten
Date: Tue Sep 30 00:28:54 2008
New Revision: 700369
URL: http://svn.apache.org/viewvc?rev=700369&view=rev
Log:
Perl 5.8 and 5.10 differ in how they handle attempts to sysread into various
readonly variables. This change makes the test less rigid to take that into
account.
Modified:
perl/modperl/trunk/t/response/TestApache/read4.pm
Modified: perl/modperl/trunk/t/response/TestApache/read4.pm
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/response/TestApache/read4.pm?rev=700369&r1=700368&r2=700369&view=diff
==============================================================================
--- perl/modperl/trunk/t/response/TestApache/read4.pm (original)
+++ perl/modperl/trunk/t/response/TestApache/read4.pm Tue Sep 30 00:28:54 2008
@@ -19,12 +19,15 @@
"123456".("\0"x(1000-length("123456")))."bar",
"123f",
"23f\0\0o",
- qr/Can't coerce readonly REF to string in/,
+ qr/\bread-?only\b/,
$^V,
"ARo",
- qr/Modification of a read-only value attempted/,
+ qr/\bread-?only\b/,
".........",
- "\0\0ar",
+ # Reading into $1 (the test above) eats up input since perl
+ # 5.10. This was also the version that blessed $^V as a
+ # "version" object.
+ (ref $^V ? "\0\0ar" : "\0\0bar"),
"12",
"");