From 4d81668cf71382c8dbcae91168cce88edb6e4607edf6e18095f2213a659c4592 Mon Sep 17 00:00:00 2001
From: Christian Wittmer <chris@computersalat.de>
Date: Fri, 19 Nov 2010 15:35:09 +0000
Subject: [PATCH] add pm, t patch, rt.cpan#56681

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Devel-Cycle?expand=0&rev=4
---
 Devel-Cycle-pm.patch     | 11 +++++++++++
 Devel-Cycle-t.patch      | 35 +++++++++++++++++++++++++++++++++++
 perl-Devel-Cycle.changes |  4 +++-
 perl-Devel-Cycle.spec    |  8 ++++++++
 4 files changed, 57 insertions(+), 1 deletion(-)
 create mode 100644 Devel-Cycle-pm.patch
 create mode 100644 Devel-Cycle-t.patch

diff --git a/Devel-Cycle-pm.patch b/Devel-Cycle-pm.patch
new file mode 100644
index 0000000..ac85ff2
--- /dev/null
+++ b/Devel-Cycle-pm.patch
@@ -0,0 +1,11 @@
+--- lib/Devel/Cycle.old	2009-08-24 08:54:45.000000000 -0400
++++ lib/Devel/Cycle.pm	2010-04-16 20:53:30.000000000 -0400
+@@ -215,7 +215,7 @@
+ sub _get_type {
+   my $thingy = shift;
+   return unless ref $thingy;
+-  return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF');
++  return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF') || UNIVERSAL::isa($thingy,'Regexp');
+   return 'ARRAY'  if UNIVERSAL::isa($thingy,'ARRAY');
+   return 'HASH'   if UNIVERSAL::isa($thingy,'HASH');
+   return 'CODE'   if UNIVERSAL::isa($thingy,'CODE');
diff --git a/Devel-Cycle-t.patch b/Devel-Cycle-t.patch
new file mode 100644
index 0000000..ee5edcc
--- /dev/null
+++ b/Devel-Cycle-t.patch
@@ -0,0 +1,35 @@
+--- t/Devel-Cycle.old	2008-07-08 21:26:35.000000000 -0400
++++ t/Devel-Cycle.t	2010-04-16 20:39:04.000000000 -0400
+@@ -5,7 +5,7 @@
+ 
+ # change 'tests => 1' to 'tests => last_test_to_print';
+ 
+-use Test::More tests => 12;
++use Test::More tests => 13;
+ use Scalar::Util qw(weaken isweak);
+ BEGIN { use_ok('Devel::Cycle') };
+ 
+@@ -87,6 +87,7 @@
+ }
+ 
+ {
++    no warnings qw{ once };
+     *FOOBAR = *FOOBAR if 0; # cease -w
+     my $test2 = { glob => \*FOOBAR };
+ 
+@@ -101,6 +102,15 @@
+     is("@warnings", "", "Warn only once");
+ }
+ 
++{
++    my $test_re = qr{foo}xms;
++
++    my @warnings;
++    local $SIG{__WARN__} = sub { push @warnings, @_ };
++    find_cycle($test_re);
++    ok( !@warnings, 'No warnings on Regex' );
++}
++
+ package foo;
+ use overload q("") => sub{ return 1 };  # show false alarm
+ 
diff --git a/perl-Devel-Cycle.changes b/perl-Devel-Cycle.changes
index 7ef7084..6a8101a 100644
--- a/perl-Devel-Cycle.changes
+++ b/perl-Devel-Cycle.changes
@@ -1,8 +1,10 @@
 -------------------------------------------------------------------
-Fri Nov 19 12:57:40 UTC 2010 - chris@computersalat.de
+Fri Nov 19 15:33:16 UTC 2010 - chris@computersalat.de
 
 - recreated by cpanspec 1.78
   o fix deps
+- add pm, t patch (rt.cpan.org#56681)
+  https://rt.cpan.org/Public/Bug/Display.html?id=56681
 
 -------------------------------------------------------------------
 Tue Oct 19 08:38:32 UTC 2010 - coolo@novell.com
diff --git a/perl-Devel-Cycle.spec b/perl-Devel-Cycle.spec
index 0a79b5f..ec4ec8b 100644
--- a/perl-Devel-Cycle.spec
+++ b/perl-Devel-Cycle.spec
@@ -26,6 +26,9 @@ License:        GPL+ or Artistic
 Group:          Development/Libraries/Perl
 Url:            http://search.cpan.org/dist/Devel-Cycle/
 Source:         http://search.cpan.org/CPAN/authors/id/L/LD/LDS/Devel-Cycle-1.11.tar.gz
+# https://rt.cpan.org/Public/Bug/Display.html?id=56681
+Patch0:         %{cpan_name}-pm.patch
+Patch1:         %{cpan_name}-t.patch
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
@@ -48,6 +51,11 @@ Authors:
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
+# https://rt.cpan.org/Public/Bug/Display.html?id=56681
+%if 0%{?suse_version} >= 1130
+%patch0
+%patch1
+%endif
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor