Hello community, here is the log from the commit of package perl-Tk-Clock for openSUSE:Factory checked in at 2020-04-21 13:05:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Tk-Clock (Old) and /work/SRC/openSUSE:Factory/.perl-Tk-Clock.new.2738 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Tk-Clock" Tue Apr 21 13:05:31 2020 rev:12 rq:795270 version:0.41 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Tk-Clock/perl-Tk-Clock.changes 2017-10-09 19:48:18.299362831 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Tk-Clock.new.2738/perl-Tk-Clock.changes 2020-04-21 13:05:33.492200900 +0200 @@ -1,0 +2,14 @@ +Fri Apr 10 03:17:54 UTC 2020 - <[email protected]> + +- updated to 0.41 + see /usr/share/doc/packages/perl-Tk-Clock/ChangeLog + + 0.41 - 09 Apr 2020, H.Merijn Brand + * It's 2017 + * It's 2018 + * Document TAGS + * It's 2019 + * Add cpanfile + * It's 2020 + +------------------------------------------------------------------- Old: ---- Tk-Clock-0.40.tgz New: ---- Tk-Clock-0.41.tgz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Tk-Clock.spec ++++++ --- /var/tmp/diff_new_pack.Cownww/_old 2020-04-21 13:05:34.280202471 +0200 +++ /var/tmp/diff_new_pack.Cownww/_new 2020-04-21 13:05:34.284202479 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Tk-Clock # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -12,39 +12,39 @@ # 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/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # Name: perl-Tk-Clock -Version: 0.40 +Version: 0.41 Release: 0 %define cpan_name Tk-Clock Summary: Clock widget with analog and digital display -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/Tk-Clock/ +Url: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Test::More) >= 0.88 +BuildRequires: perl(Test::More) >= 0.9 BuildRequires: perl(Test::NoWarnings) BuildRequires: perl(Tk) >= 402.000 BuildRequires: perl(Tk::Canvas) BuildRequires: perl(Tk::Derived) BuildRequires: perl(Tk::Widget) -Requires: perl(Test::More) >= 0.88 +Requires: perl(Test::More) >= 0.9 Requires: perl(Test::NoWarnings) Requires: perl(Tk) >= 402.000 Requires: perl(Tk::Canvas) Requires: perl(Tk::Derived) Requires: perl(Tk::Widget) -Recommends: perl(Encode) >= 2.84 -Recommends: perl(Test::More) >= 1.302015 -Recommends: perl(Tk) >= 804.033 +Recommends: perl(Encode) >= 3.05 +Recommends: perl(Test::More) >= 1.302174 +Recommends: perl(Tk) >= 804.035 %{perl_requires} %description @@ -55,17 +55,17 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 +find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 # MANUAL BEGIN sed -i -e 's,/pro/bin/perl,/usr/bin/perl,' examples/*pl # MANUAL END %build -%{__perl} Makefile.PL INSTALLDIRS=vendor -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} %check -%{__make} test +make test %install %perl_make_install ++++++ Tk-Clock-0.40.tgz -> Tk-Clock-0.41.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/CONTRIBUTING.md new/Tk-Clock-0.41/CONTRIBUTING.md --- old/Tk-Clock-0.40/CONTRIBUTING.md 2015-08-07 13:21:32.000000000 +0200 +++ new/Tk-Clock-0.41/CONTRIBUTING.md 2019-08-29 08:49:01.000000000 +0200 @@ -16,6 +16,14 @@ [.perltidy](https://github.com/Tux/Release-Checklist/blob/master/.perltidyrc) and [.perlcritic](https://github.com/Tux/Release-Checklist/blob/master/.perlcriticrc). +# Mail + +Please, please, please, do *NOT* use HTML mail. +[Plain text](https://useplaintext.email) +[without](http://www.goldmark.org/jeff/stupid-disclaimers/) +[disclaimers](https://www.economist.com/business/2011/04/07/spare-us-the-e-mail-yada-yada) +will do fine! + # Requirements The minimum version required to use this module is stated in diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/ChangeLog new/Tk-Clock-0.41/ChangeLog --- old/Tk-Clock-0.40/ChangeLog 2016-05-12 11:48:20.000000000 +0200 +++ new/Tk-Clock-0.41/ChangeLog 2020-04-09 10:22:08.000000000 +0200 @@ -1,3 +1,11 @@ +0.41 - 09 Apr 2020, H.Merijn Brand + * It's 2017 + * It's 2018 + * Document TAGS + * It's 2019 + * Add cpanfile + * It's 2020 + 0.40 - 12 May 2016, H.Merijn Brand * Fix backdrop test * Add CONTRIBUTING.md diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/Clock.pm new/Tk-Clock-0.41/Clock.pm --- old/Tk-Clock-0.40/Clock.pm 2016-01-02 16:48:27.000000000 +0100 +++ new/Tk-Clock-0.41/Clock.pm 2020-04-09 10:37:21.000000000 +0200 @@ -5,7 +5,7 @@ use strict; use warnings; -our $VERSION = "0.40"; +our $VERSION = "0.41"; use Carp; @@ -107,8 +107,7 @@ }, ); -sub _booleans -{ +sub _booleans { my $data = shift; $data->{$_} = !!$data->{$_} for qw( ana24hour @@ -122,23 +121,21 @@ ); } # _booleans -sub _decode -{ +sub _decode { my $s = shift; $s && $s =~ m{[\x80-\xff]} or return $s; my $u = eval { Encode::decode ("UTF-8", $s, Encode::FB_CROAK) }; return ($@ ? $s : $u); } # _decode -sub _newLocale -{ +sub _newLocale { my $locale = shift or return $locale{C}; require POSIX; require Encode; - my $curloc = POSIX::setlocale (&POSIX::LC_TIME, "") || "C"; - my $newloc = POSIX::setlocale (&POSIX::LC_TIME, $locale) || "C"; + my $curloc = POSIX::setlocale (POSIX::LC_TIME (), "") || "C"; + my $newloc = POSIX::setlocale (POSIX::LC_TIME (), $locale) || "C"; $locale{$newloc} and return $locale{$newloc}; my $l = $locale{$locale} = {}; @@ -154,36 +151,31 @@ POSIX::strftime ("%A", 0, 0, 0, $d - 1, 0, 113); } - POSIX::setlocale (&POSIX::LC_TIME, $curloc); + POSIX::setlocale (POSIX::LC_TIME (), $curloc); return $l; } # _newLocale -sub _month # (month, size) -{ +sub _month { # (month, size) my ($locale, $m, $l) = @_; ($locale{$locale} || $locale{C})->{month}[$m][$l]; } # _month -sub _wday # (wday, size) -{ +sub _wday { # (wday, size) my ($locale, $m, $l) = @_; ($locale{$locale} || $locale{C})->{day}[$m][$l]; } # _wday -sub _min -{ +sub _min { $_[0] <= $_[1] ? $_[0] : $_[1]; } # _min -sub _max -{ +sub _max { $_[0] >= $_[1] ? $_[0] : $_[1]; } # _max # Transparent packInfo for pack/grid/place/form -sub _packinfo -{ +sub _packinfo { my $clock = shift; my %pi = map { ("-$_" => 0) } qw( padx pady ipadx ipady ); @@ -210,8 +202,7 @@ %pi; } # _packinfo -sub _resize -{ +sub _resize { my $clock = shift; use integer; @@ -236,8 +227,7 @@ } # _resize # Callback when auto-resize is called -sub _resize_auto -{ +sub _resize_auto { my $clock = shift; my $data = $clock->privateData; @@ -247,8 +237,6 @@ my $geo = $clock->geometry; my ($gw, $gh) = split m/\D/, $geo; # Cannot use ->cget here $gw < 5 and return; # not packed yet? - my %pi = $clock->_packinfo; - my ($px, $py) = ($pi{"-padx"}, $pi{"-pady"}); $data->{useDigital} and $gh -= $data->{_digSize}; my $nwdth = _min ($gw, $gh - 1); abs ($nwdth - $owdth) > 5 && $nwdth >= 10 or return; @@ -265,8 +253,7 @@ $clock->_resize; } # _resize_auto -sub _createDigital -{ +sub _createDigital { my $clock = shift; my $data = $clock->privateData; @@ -276,14 +263,14 @@ my ($wd, $hd) = do { my $s_date = $data->{fmtd}->(@t, 0, 0, 0); $s_date =~ s/\b([0-9])\b/0$1/g; # prepare "d" running from 9 to 10 - my $f = $clock->Label (-font => $data->{dateFont})->cget (-font); + my $f = $clock->Label (-font => $data->{dateFont})->cget (-font); my %fm = $clock->fontMetrics ($f); ($clock->fontMeasure ($f, $s_date), $fm{"-linespace"} || 9); }; my ($wt, $ht) = do { my $s_time = $data->{fmtt}->(@t, 0, 0, 0); $s_time =~ s/\b([0-9])\b/0$1/g; # prepare "h" running from 9 to 10 - my $f = $clock->Label (-font => $data->{timeFont})->cget (-font); + my $f = $clock->Label (-font => $data->{timeFont})->cget (-font); my %fm = $clock->fontMetrics ($f); ($clock->fontMeasure ($f, $s_time), $fm{"-linespace"} || 9); }; @@ -321,16 +308,14 @@ $clock->_resize; } # _createDigital -sub _destroyDigital -{ +sub _destroyDigital { my $clock = shift; $clock->delete ("date"); $clock->delete ("time"); } # _destroyDigital -sub _where -{ +sub _where { my ($clock, $tick, $len, $anaSize) = @_; # ticks 0 .. 59 my ($x, $y, $angle); @@ -342,8 +327,7 @@ ($h - $x / 4, $h + $y / 4, $h + $x, $h - $y); } # _where -sub _createAnalog -{ +sub _createAnalog { my $clock = shift; my $data = $clock->privateData; @@ -402,7 +386,7 @@ $clock->createOval (($cntr - $diam) x 2, ($cntr + $diam) x 2, -tags => "hour", -fill => $data->{handColor}, - -width => 0. + -width => 0, ); } $clock->createLine ( @@ -425,7 +409,7 @@ $clock->createOval (($cntr - $diam) x 2, ($cntr + $diam) x 2, -tags => "sec", -fill => $data->{secsColor}, - -width => 0. + -width => 0, ); } } @@ -433,15 +417,13 @@ $clock->_resize; } # _createAnalog -sub _destroyAnalog -{ +sub _destroyAnalog { my $clock = shift; $clock->delete ($_) for qw( back info tick hour min sec ); } # _destroyAnalog -sub Populate -{ +sub Populate { my ($clock, $args) = @_; my $data = $clock->privateData; @@ -488,8 +470,7 @@ useLocale => 1, ); -sub config -{ +sub config { my $clock = shift; ref $clock or croak "Bad method call"; @@ -508,7 +489,8 @@ } my $data = $clock->privateData; - $attr_weight{$_} ||= unpack "s>", $_ for keys %def_config; + my $pfmt = $] < 5.010 ? "s" : "s>"; + $attr_weight{$_} ||= unpack $pfmt, $_ for keys %def_config; my $autoScale; # sort, so the recreational attribute will be done last @@ -732,8 +714,7 @@ $clock; } # config -sub _run -{ +sub _run { my $clock = shift; my $data = $clock->privateData; @@ -1144,6 +1125,17 @@ The C<new ()> constructor will also accept options valid for Canvas widgets, like C<-background> and C<-relief>. +=head1 TAGS + +As all of the clock is part of a Canvas, the items cannot be addressed as +Subwidgets. You can however alter presentation afterwards using the tags: + + my $clock = $mw->Clock->pack; + $clock->itemconfigure ("date", -fill => "Red"); + +Currently defined tags are C<date>, C<hour>, C<info>, C<min>, C<sec>, +C<tick>, and C<time>. + =head1 BUGS If the system load's too high, the clock might skip some seconds. @@ -1174,7 +1166,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 1999-2016 H.Merijn Brand +Copyright (C) 1999-2020 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/MANIFEST new/Tk-Clock-0.41/MANIFEST --- old/Tk-Clock-0.40/MANIFEST 2016-05-12 13:23:36.000000000 +0200 +++ new/Tk-Clock-0.41/MANIFEST 2020-04-09 10:39:52.000000000 +0200 @@ -3,6 +3,7 @@ Makefile.PL README CONTRIBUTING.md +cpanfile Clock.pm examples/24hour.pl examples/cdclock.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/META.json new/Tk-Clock-0.41/META.json --- old/Tk-Clock-0.40/META.json 2016-05-12 13:23:36.000000000 +0200 +++ new/Tk-Clock-0.41/META.json 2020-04-09 10:39:53.000000000 +0200 @@ -1,66 +1,66 @@ { - "author" : [ - "H.Merijn Brand <[email protected]>" - ], - "generated_by" : "Author", - "license" : [ - "perl_5" - ], + "release_status" : "stable", + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : 2 + }, + "name" : "Tk-Clock", + "dynamic_config" : 1, "prereqs" : { + "test" : { + "requires" : { + "Test::More" : "0.90", + "Test::NoWarnings" : "0" + }, + "recommends" : { + "Test::More" : "1.302174" + } + }, "runtime" : { + "recommends" : { + "Tk" : "804.035", + "Encode" : "3.05" + }, "requires" : { "Tk::Widget" : "0", + "Carp" : "0", + "Encode" : "0", "perl" : "5.006", + "Tk::Derived" : "0", "POSIX" : "0", - "Encode" : "0", - "Carp" : "0", "Tk::Canvas" : "0", - "Tk" : "402.000", - "Tk::Derived" : "0" + "Tk" : "402.000" + } }, - "recommends" : { - "Encode" : "2.84", - "Tk" : "804.033" - } - }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" + } } }, - "test" : { - "recommends" : { - "Test::More" : "1.302015" - }, - "requires" : { - "Test::More" : "0.88", - "Test::NoWarnings" : "0" - } - } - }, - "release_status" : "stable", - "version" : "0.40", - "meta-spec" : { - "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, - "version" : "2" - }, - "dynamic_config" : 1, "abstract" : "Clock widget with analog and digital display", - "name" : "Tk-Clock", + "generated_by" : "Author", "provides" : { "Tk::Clock" : { - "version" : "0.40", - "file" : "Clock.pm" - } - }, + "file" : "Clock.pm", + "version" : "0.41" + } + }, + "version" : "0.41", + "license" : [ + "perl_5" + ], "resources" : { "license" : [ "http://dev.perl.org/licenses/"; - ], + ], "repository" : { - "type" : "git", "web" : "https://github.com/Tux/Tk-Clock";, + "type" : "git", "url" : "https://github.com/Tux/Tk-Clock"; - } + } + }, + "author" : [ + "H.Merijn Brand <[email protected]>" + ] } -} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/META.yml new/Tk-Clock-0.41/META.yml --- old/Tk-Clock-0.40/META.yml 2016-05-12 13:23:36.000000000 +0200 +++ new/Tk-Clock-0.41/META.yml 2020-04-09 10:39:53.000000000 +0200 @@ -5,7 +5,7 @@ configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: Author, CPAN::Meta::Converter version 2.150005 +generated_by: Author, CPAN::Meta::Converter version 2.150010 license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -14,16 +14,16 @@ provides: Tk::Clock: file: Clock.pm - version: '0.40' + version: '0.41' recommends: - Encode: '2.84' - Test::More: '1.302015' - Tk: '804.033' + Encode: '3.05' + Test::More: '1.302174' + Tk: '804.035' requires: Carp: 0 Encode: 0 POSIX: 0 - Test::More: '0.88' + Test::More: '0.90' Test::NoWarnings: 0 Tk: '402.000' Tk::Canvas: 0 @@ -33,4 +33,4 @@ resources: license: http://dev.perl.org/licenses/ repository: https://github.com/Tux/Tk-Clock -version: '0.40' +version: '0.41' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/Makefile.PL new/Tk-Clock-0.41/Makefile.PL --- old/Tk-Clock-0.40/Makefile.PL 2016-01-02 16:48:33.000000000 +0100 +++ new/Tk-Clock-0.41/Makefile.PL 2020-04-09 10:37:10.000000000 +0200 @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright PROCURA B.V. (c) 1999-2016 H.Merijn Brand +# Copyright PROCURA B.V. (c) 1999-2020 H.Merijn Brand require 5.006; @@ -25,7 +25,7 @@ "Tk::Derived" => 0, "Tk::Widget" => 0, "Carp" => 0, - "Test::More" => 0.88, + "Test::More" => 0.90, "Test::NoWarnings" => 0, "Encode" => 0, "POSIX" => 0, @@ -45,8 +45,7 @@ package MY; -sub postamble -{ +sub postamble { my $valgrind = join " ", qw( PERL_DESTRUCT_LEVEL=2 PERL_DL_NONLAZY=1 valgrind @@ -79,7 +78,7 @@ 'leaktest:', q{ sandbox/leaktest $(FULLPERLRUN) "test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)}, '', - 'spellcheck:', + 'spellcheck: doc', ' pod-spell-check --aspell', '', 'checkmeta: spellcheck', @@ -94,6 +93,17 @@ ' -@cpants_lint.pl $(DISTVNAME).tgz', ' -@rm -f Debian_CPANTS.txt', '', + 'doc docs: doc/Clock.md doc/Clock.html doc/Clock.man', + ' -@rm -f pod2html.tmp', + 'doc/Clock.md: Clock.pm', + ' pod2markdown < $? > $@', + 'doc/Clock.html: Clock.pm', + ' pod2html < $? 2>&1 | grep -v "^Cannot find" > $@', + 'doc/Clock.3: Clock.pm', + ' pod2man < $? > $@', + 'doc/Clock.man: doc/Clock.3', + ' nroff -mandoc < $? > $@', + '', $min_vsn; } # postamble diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/README new/Tk-Clock-0.41/README --- old/Tk-Clock-0.40/README 2016-01-02 16:48:31.000000000 +0100 +++ new/Tk-Clock-0.41/README 2020-04-09 10:26:02.000000000 +0200 @@ -12,7 +12,7 @@ ration, which makes it not Y2K compliant. COPYING: - Copyright (c) 1998-2016 H.Merijn Brand. All rights reserved. + Copyright (c) 1998-2020 H.Merijn Brand. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -64,7 +64,7 @@ See ChangeLog COPYRIGHT AND LICENSE - Copyright (C) 1999-2016 H.Merijn Brand + Copyright (C) 1999-2020 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/cpanfile new/Tk-Clock-0.41/cpanfile --- old/Tk-Clock-0.40/cpanfile 1970-01-01 01:00:00.000000000 +0100 +++ new/Tk-Clock-0.41/cpanfile 2020-04-09 10:39:53.000000000 +0200 @@ -0,0 +1,21 @@ +requires "Carp"; +requires "Encode"; +requires "POSIX"; +requires "Tk" => "402.000"; +requires "Tk::Canvas"; +requires "Tk::Derived"; +requires "Tk::Widget"; + +recommends "Encode" => "3.05"; +recommends "Tk" => "804.035"; + +on "configure" => sub { + requires "ExtUtils::MakeMaker"; + }; + +on "test" => sub { + requires "Test::More" => "0.90"; + requires "Test::NoWarnings"; + + recommends "Test::More" => "1.302174"; + }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.40/examples/cdclock.pl new/Tk-Clock-0.41/examples/cdclock.pl --- old/Tk-Clock-0.40/examples/cdclock.pl 2010-08-02 12:44:43.000000000 +0200 +++ new/Tk-Clock-0.41/examples/cdclock.pl 2017-06-30 15:59:10.000000000 +0200 @@ -46,8 +46,7 @@ my ($l, $rest, $end, $secs, $left) = (""); -sub rest -{ +sub rest { use integer; my $now = time; @@ -89,8 +88,7 @@ $end = undef; } # rest -sub start -{ +sub start { my $val = 60 * shift; $end = time + $val; rest ();
