[perl-Devel-LeakGuard-Object] fix failing tests with Carp 1.25 - rt#75381

[Iain Arnell]

commit 8556c4898b6c54b17d85e1e43ff89b19b91f90d1
Author: Iain Arnell <iarnell at gmail.com>
Date:   Fri Jun 15 06:30:18 2012 -0600

    fix failing tests with Carp 1.25 - rt#75381

 Devel-LeakGuard-Object-Carp-1.25.patch |   30 ++++++++++++++++++++++++++++++
 perl-Devel-LeakGuard-Object.spec       |    8 +++++++-
 2 files changed, 37 insertions(+), 1 deletions(-)
---
diff --git a/Devel-LeakGuard-Object-Carp-1.25.patch b/Devel-LeakGuard-Object-Carp-1.25.patch
new file mode 100644
index 0000000..f9ecfec
--- /dev/null
+++ b/Devel-LeakGuard-Object-Carp-1.25.patch
@@ -0,0 +1,30 @@
+diff -up Devel-LeakGuard-Object-0.06/t/guard.t.orig Devel-LeakGuard-Object-0.06/t/guard.t
+--- Devel-LeakGuard-Object-0.06/t/guard.t.orig	2009-06-24 09:37:57.000000000 -0600
++++ Devel-LeakGuard-Object-0.06/t/guard.t	2012-06-15 06:18:16.000000000 -0600
+@@ -62,7 +62,7 @@ package main;
+     my $foo1 = Foo->new( '3foo1' );
+     $foo1->{me} = $foo1;
+   };
+-  s/line \d+/line #/g for @w;
++  s/line \d+\.?/line #/g for @w;
+   eq_or_diff [@w],
+    [   "Object leaks found:\n"
+      . "  Class Before  After  Delta\n"
+@@ -89,7 +89,7 @@ package main;
+     $foo1->{me} = $foo1;
+   }
+   on_leak => 'warn';
+-  s/line \d+/line #/g for @w;
++  s/line \d+\.?/line #/g for @w;
+   eq_or_diff [@w],
+    [   "Object leaks found:\n"
+      . "  Class Before  After  Delta\n"
+@@ -107,7 +107,7 @@ package main;
+     }
+     on_leak => 'die';
+   };
+-  s/line \d+/line #/g for @w;
++  s/line \d+\.?/line #/g for @w;
+   eq_or_diff [@w],
+    [   "Object leaks found:\n"
+      . "  Class Before  After  Delta\n"
diff --git a/perl-Devel-LeakGuard-Object.spec b/perl-Devel-LeakGuard-Object.spec
index eee0483..6c01b21 100644
--- a/perl-Devel-LeakGuard-Object.spec
+++ b/perl-Devel-LeakGuard-Object.spec
@@ -1,11 +1,13 @@
 Name:           perl-Devel-LeakGuard-Object
 Version:        0.06
-Release:        9%{?dist}
+Release:        10%{?dist}
 Summary:        Scoped checks for object leaks
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Devel-LeakGuard-Object/
 Source0:        http://www.cpan.org/authors/id/A/AN/ANDYA/Devel-LeakGuard-Object-%{version}.tar.gz
+# https://rt.cpan.org/Public/Bug/Display.html?id=75381
+Patch0:         Devel-LeakGuard-Object-Carp-1.25.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 BuildRequires:  perl(latest)
@@ -20,6 +22,7 @@ memory leaks due to circular references or innappropriate caching schemes.
 
 %prep
 %setup -q -n Devel-LeakGuard-Object-%{version}
+%patch0 -p 1
 
 %build
 %{__perl} Build.PL installdirs=vendor
@@ -46,6 +49,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Fri Jun 15 2012 Iain Arnell <iarnell at gmail.com> 0.06-10
+- fix failing tests with Carp 1.25 - rt#75381
+
 * Thu Jun 14 2012 Petr Pisar <ppisar at redhat.com> - 0.06-9
 - Perl 5.16 rebuild