| Subject: | [PATCH] test fix for new Carp 1.25 dot |
test fix for new Carp 1.25 dot (perl-5.16)
patch attached.
--
Reini Urban
| Subject: | 0002-test-fix-for-new-Carp-1.25-dot.patch |
From 315b412d592c57c27a3201a1482e71ad9d997a49 Mon Sep 17 00:00:00 2001
From: Reini Urban <rurban@cpanel.net>
Date: Thu, 9 Feb 2012 18:04:07 -0600
Subject: [PATCH 2/2] test fix for new Carp 1.25 dot
---
t/022Wrap.t | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/022Wrap.t b/t/022Wrap.t
index 97d467b..28b59e7 100644
--- a/t/022Wrap.t
+++ b/t/022Wrap.t
@@ -76,7 +76,7 @@ $buf =~ s#(\S+022Wrap\.t)#basename( $1 )#eg;
is($buf,
"File: 022Wrap.t Line number: $line package: main " .
- "trace: at 022Wrap.t line $line",
+ "trace: at 022Wrap.t line $line".($Carp::VERSION gt '1.24'?".":""),
"appender check");
# with the new wrapper_register in Log4perl 1.29, this will even work
@@ -92,7 +92,7 @@ $buf =~ s#(\S+022Wrap\.t)#basename( $1 )#eg;
is($buf,
"File: 022Wrap.t Line number: $line package: main " .
- "trace: at 022Wrap.t line $line",
+ "trace: at 022Wrap.t line $line".($Carp::VERSION gt '1.24'?".":""),
"appender check");
##################################################
--
1.7.5.4