perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From tors...@apache.org
Subject svn commit: r700369 - /perl/modperl/trunk/t/response/TestApache/read4.pm
Date Tue, 30 Sep 2008 07:28:54 GMT
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",
                 "");
 



Mime
View raw message