Permalink
Browse files

[rt.cpan.org #74836] Cope with Carp's questionable decision to

add a trailing dot to its messages.
  • Loading branch information...
1 parent 7b6100d commit 05c5cb2190ffbd0916d0c88c8ae453b6459d6fb6 @mschilli committed Feb 11, 2012
Showing with 9 additions and 0 deletions.
  1. +2 −0 Changes
  2. +7 −0 t/022Wrap.t
View
2 Changes
@@ -5,6 +5,8 @@
1.36 (not yet released)
* (ms) [rt.cpan.org #74833] Reini Urban fixed "defined @array" for
perl 5.16
+ * (ms) [rt.cpan.org #74836] Cope with Carp's questionable decision to
+ add a trailing dot to its messages.
1.35 (2012/01/03)
* (ms) [rt.cpan.org #73462] Changed logwarn/logcluck/logcarp/error_warn
View
7 t/022Wrap.t
@@ -74,6 +74,10 @@ $rootlogger->debug("Hello");
my $buf = $app0->buffer();
$buf =~ s#(\S+022Wrap\.t)#basename( $1 )#eg;
+# [rt 74836] Carp.pm added a dot at the end with 1.25.
+# Be dot-agnostic.
+$buf =~ s/\.$//;
+
is($buf,
"File: 022Wrap.t Line number: $line package: main " .
"trace: at 022Wrap.t line $line",
@@ -87,6 +91,9 @@ $line = __LINE__ + 1;
$rootlogger->debug("Hello");
# Win32
+# [rt 74836] Carp.pm added a dot at the end with 1.25.
+# Be dot-agnostic.
+$buf =~ s/\.$//;
$buf = $app0->buffer();
$buf =~ s#(\S+022Wrap\.t)#basename( $1 )#eg;

0 comments on commit 05c5cb2

Please sign in to comment.