Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 50f0eee

Fix https://rt.cpan.org/Ticket/Display.html?id=74770 .

Error.pm's tests were broken by bleadperl.

The patch was modified to replace "." (any char) in the regular expressions
with "\." (only period).

  • Participants
  • Parent commits d2bf6ea

Comments (0)

Files changed (2)

File module/ChangeLog

+  
+  - Bleadperl broke Error.pm's tests - 
+  	- https://rt.cpan.org/Ticket/Display.html?id=74770
+    - Applied a patch to check for optional trailing periods.
+	- Thanks to ANDK for the report and RURBAN for the patch
+  
 Dec 19 2009 <shlomif@iglu.org.il> (Shlomi Fish)
 
   Error.pm #0.17016

File module/t/08warndie.t

 };
 
 my ( $linea, $lineb ) = ( $line + 2, $line + 3 );
-like( $s, qr/^A warning at $file line $linea:
+like( $s, qr/^A warning at $file line $linea\.?:
 \tmain::__ANON__\(\) called at $file line $linekid
 \tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
 $/, "warn \\n-terminated STDERR" );
 };
 
 ( $linea, $lineb ) = ( $line + 2, $line + 3 );
-like( $s, qr/^A warning at $file line $linea:
+like( $s, qr/^A warning at $file line $linea\.?:
 \tmain::__ANON__\(\) called at $file line $linekid
 \tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
 $/, "warn unterminated STDERR" );
 };
 
 $linea = $line + 2;
-like( $s, qr/^My custom warning here: A warning at $file line $linea.
+like( $s, qr/^My custom warning here: A warning at $file line $linea\.?
 $/, "Custom warn test STDERR" );
 is( $felloffcode, 1, "Custom warn test felloffcode" );
 
 };
 
 $linea = $line + 2;
-like( $s, qr/^My custom death here: An error at $file line $linea.
+like( $s, qr/^My custom death here: An error at $file line $linea\.?
 /, "Custom die test STDERR" );
 is( $felloffcode, 0, "Custom die test felloffcode" );
 
 };
 
 ( $linea, $lineb ) = ( $line + 2, $line + 3 );
-like( $s, qr/^My custom warning here: A warning at $file line $linea:
+like( $s, qr/^My custom warning here: A warning at $file line $linea\.?:
 \tmain::__ANON__\(\) called at $file line $linekid
 \tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
 $/, "Custom warn STDERR" );