commit perl-Devel-Cycle for openSUSE:Factory

Hello community, here is the log from the commit of package perl-Devel-Cycle for openSUSE:Factory checked in at Tue Nov 30 15:55:21 CET 2010. -------- New Changes file: --- /dev/null 2010-07-09 01:59:37.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Devel-Cycle/perl-Devel-Cycle.changes 2010-11-19 16:35:08.000000000 +0100 @@ -0,0 +1,18 @@ +------------------------------------------------------------------- +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 + +- add perl as explicit buildrequire + +------------------------------------------------------------------- +Tue Nov 24 17:39:04 CET 2009 - rschweikert@novell.com + +- Initial build, version 1.11 + calling whatdependson for head-i586 New: ---- Devel-Cycle-1.11.tar.gz Devel-Cycle-pm.patch Devel-Cycle-t.patch perl-Devel-Cycle.changes perl-Devel-Cycle.spec ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Devel-Cycle.spec ++++++ # # spec file for package perl-Devel-Cycle (Version 1.11) # # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed # upon. The license for this file, and modifications and additions to the # file, is the same license as for the pristine package itself (unless the # license for the pristine package is not an Open Source License, in which # case the license is the MIT License). An "Open Source License" is a # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. # Please submit bugfixes or comments via http://bugs.opensuse.org/ # # norootforbuild Name: perl-Devel-Cycle %define cpan_name Devel-Cycle Summary: Find memory cycles in objects Version: 1.11 Release: 1 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 %if 0%{?suse_version} < 1120 BuildRequires: perl-macros %endif BuildRequires: perl(Test::More) BuildRequires: perl(Scalar::Util) Requires: perl = %{perl_version} Requires: perl(Scalar::Util) %description This is a simple developer's tool for finding circular references in objects and other types of references. Because of Perl's reference-count based memory management, circular references will cause memory leaks. Authors: -------- Lincoln Stein, %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 %{__make} %{?_smp_mflags} %check %{__make} test %install %perl_make_install # do not perl_process_packlist (noarch) # remove .packlist file %{__rm} -rf $RPM_BUILD_ROOT%perl_vendorarch # remove perllocal.pod file %{__rm} -rf $RPM_BUILD_ROOT%perl_archlib %perl_gen_filelist %clean %{__rm} -rf $RPM_BUILD_ROOT %files -f %{name}.files %defattr(-,root,root,-) %doc Changes README %changelog ++++++ Devel-Cycle-pm.patch ++++++ --- 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'); ++++++ Devel-Cycle-t.patch ++++++ --- 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 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org