This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository liberror-perl.

commit 30de7e02717a787467394f5f24014b4f6392a096
Author: CSILLAG Tamas <csta...@cstamas.hu>
Date:   Sat Sep 7 10:04:34 2013 +0200

    Imported Debian patch 0.17-1.1
---
 debian/changelog |  7 +++++++
 t/08warndie.t    | 20 ++++++++++----------
 2 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index d1b7d59..5e960b2 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+liberror-perl (0.17-1.1) unstable; urgency=low
+
+  * Non-maintainer upload.
+  * apply fix for tests from upstream (closes: #711441) 
+
+ -- CSILLAG Tamas <csta...@cstamas.hu>  Sat, 07 Sep 2013 10:04:34 +0200
+
 liberror-perl (0.17-1) unstable; urgency=low
 
   * New upstream version (closes: #383606)
diff --git a/t/08warndie.t b/t/08warndie.t
index 0fb210b..db8f587 100644
--- a/t/08warndie.t
+++ b/t/08warndie.t
@@ -74,9 +74,9 @@ run_kid {
 };
 
 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
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 $/, "warn \\n-terminated STDERR" );
 is( $felloffcode, 1, "warn \\n-terminated felloffcode" );
 
@@ -86,9 +86,9 @@ run_kid {
 };
 
 ( $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
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 $/, "warn unterminated STDERR" );
 is( $felloffcode, 1, "warn unterminated felloffcode" );
 
@@ -108,7 +108,7 @@ Thrown from: $file:$linea
 Full stack trace:
 
 \tmain::__ANON__\(\) called at $file line $linekid
-\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 
 $/, "die \\n-terminated STDERR" );
 is( $felloffcode, 0, "die \\n-terminated felloffcode" );
@@ -129,7 +129,7 @@ Thrown from: $file:$linea
 Full stack trace:
 
 \tmain::__ANON__\(\) called at $file line $linekid
-\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 
 $/, "die unterminated STDERR" );
 is( $felloffcode, 0, "die unterminated felloffcode" );
@@ -150,7 +150,7 @@ Thrown from: $file:$linea
 Full stack trace:
 
 \tmain::__ANON__\(\) called at $file line $linekid
-\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 
 $/, "Error STDOUT" );
 is( $felloffcode, 0, "Error felloffcode" );
@@ -189,9 +189,9 @@ run_kid {
 };
 
 ( $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
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 $/, "Custom warn STDERR" );
 is( $felloffcode, 1, "Custom warn felloffcode" );
 
@@ -211,7 +211,7 @@ Thrown from: $file:$linea
 Full stack trace:
 
 \tmain::__ANON__\(\) called at $file line $linekid
-\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb
+\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb
 
 $/, "Custom die STDERR" );
 is( $felloffcode, 0, "Custom die felloffcode" );

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/liberror-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to