Skip Menu |

This queue is for tickets about the Log-Log4perl-Layout-XMLLayout CPAN distribution.

Report information
The Basics
Id: 48312
Status: new
Priority: 0/
Queue: Log-Log4perl-Layout-XMLLayout

People
Owner: Nobody in particular
Requestors: devin.heitmueller [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.03
Fixed in: (no value)



Subject: [PATCH] fix make test errors for Perl 5.10
As a result of changes to Perl 5.10 to treat using a regex modifier against a precompiled regex, the "make test" now fails several tests in xml.t. Attached is a patch which addresses the issue, based on version 0.03.
Subject: xml.t.patch
Index: C:/code/clarity-perl-final2/build/CPAN-modules/Log-Log4perl-Layout-XMLLayout-0.03/t/xml.t =================================================================== --- C:/code/clarity-perl-final2/build/CPAN-modules/Log-Log4perl-Layout-XMLLayout-0.03/t/xml.t (revision 40173) +++ C:/code/clarity-perl-final2/build/CPAN-modules/Log-Log4perl-Layout-XMLLayout-0.03/t/xml.t (revision 40174) @@ -45,9 +45,9 @@ \t\tfile="t/xml.t"$ \t\tline="[0-9]+">$ \t</log4j:locationInfo>$ -</log4j:event>$); +</log4j:event>$)m; -ok($app->buffer() =~ m/$regexp/m) || diag($app->buffer()); +ok($app->buffer() =~ m/$regexp/) || diag($app->buffer()); ######################################################### # Log with LocationInfo and without Encoding @@ -68,9 +68,9 @@ \t\tfile="t/xml.t"$ \t\tline="[0-9]+">$ \t</log4j:locationInfo>$ -</log4j:event>$); +</log4j:event>$)m; -ok($app->buffer() =~ m/$regexp/m); +ok($app->buffer() =~ m/$regexp/); ############################################################ # Log without LocationInfo @@ -89,9 +89,9 @@ \tthread="[0-9]+">$ \t<log4j:message><!\[CDATA\[That's the message\]\]></log4j:message>$ \t<log4j:NDC><!\[CDATA\[undef\]\]></log4j:NDC>$ -</log4j:event>$); +</log4j:event>$)m; -ok($app->buffer() =~ m/$regexp/m); +ok($app->buffer() =~ m/$regexp/); ############################################################ @@ -109,9 +109,9 @@ \tthread="[0-9]+">$ \t<log4j:message><!\[CDATA\[That's the message\]\]></log4j:message>$ \t<log4j:NDC><!\[CDATA\[undef\]\]></log4j:NDC>$ -</log4j:event>$); +</log4j:event>$)m; -ok($app->buffer() =~ m/$regexp/m); +ok($app->buffer() =~ m/$regexp/); ############################################################## #