pool/perl-Devel-Cycle
SHA256
2
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add pm, t patch, rt.cpan#56681

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Devel-Cycle?expand=0&rev=4
This commit is contained in:
Christian Wittmer 2010-11-19 15:35:09 +00:00 committed by Git OBS Bridge
parent fe5ba8c24d
commit 4d81668cf7
4 changed files with 57 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Devel-Cycle-pm.patch Normal file
View File

@ -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');

35
Devel-Cycle-t.patch Normal file
View File

@ -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

4
perl-Devel-Cycle.changes
View File

@ -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

8
perl-Devel-Cycle.spec
View File

@ -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