From 8b9e629017844de2ceb7b857c688b8c837e60b6a Mon Sep 17 00:00:00 2001 From: scayford Date: Wed, 20 Feb 2013 13:52:12 -0800 Subject: [PATCH 1/3] Modified regex in test to handle trailing period added to Carp in 1.25. --- t/Path.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/Path.t b/t/Path.t index a33c15a..5c59fb1 100644 --- a/t/Path.t +++ b/t/Path.t @@ -500,7 +500,7 @@ SKIP: { $dir = catdir($dir_stem, 'aad'); stderr_like( sub {make_path($dir, {user => $max_user, group => $max_group})}, - qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+ + qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+[.]+ unable to map $max_group to a gid, group ownership not changed: .* at \S+ line \d+\b}, "created a directory not owned by $max_user:$max_group..." ); From c64e7dc2e71026e6ad63b78afa7e6b0c4d0a738e Mon Sep 17 00:00:00 2001 From: scayford Date: Wed, 20 Feb 2013 13:55:13 -0800 Subject: [PATCH 2/3] Modified regex in test to make it work with old and new versions of Carp. --- t/Path.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/Path.t b/t/Path.t index 5c59fb1..9dbd814 100644 --- a/t/Path.t +++ b/t/Path.t @@ -500,7 +500,7 @@ SKIP: { $dir = catdir($dir_stem, 'aad'); stderr_like( sub {make_path($dir, {user => $max_user, group => $max_group})}, - qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+[.]+ + qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+[.]? unable to map $max_group to a gid, group ownership not changed: .* at \S+ line \d+\b}, "created a directory not owned by $max_user:$max_group..." ); From d5d6f6e0c79e2df1852f9dd109f63c7d9c675537 Mon Sep 17 00:00:00 2001 From: Steve Cayford Date: Wed, 26 Feb 2014 11:24:30 -0800 Subject: [PATCH 3/3] Update Path.t Using \. instead of [.] in the regex. --- t/Path.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/Path.t b/t/Path.t index 9dbd814..5bcf6dc 100644 --- a/t/Path.t +++ b/t/Path.t @@ -500,7 +500,7 @@ SKIP: { $dir = catdir($dir_stem, 'aad'); stderr_like( sub {make_path($dir, {user => $max_user, group => $max_group})}, - qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+[.]? + qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+\.? unable to map $max_group to a gid, group ownership not changed: .* at \S+ line \d+\b}, "created a directory not owned by $max_user:$max_group..." );