Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Tk-Clock for openSUSE:Factory checked in at 2026-02-09 15:34:49 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Tk-Clock (Old) and /work/SRC/openSUSE:Factory/.perl-Tk-Clock.new.1670 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Tk-Clock" Mon Feb 9 15:34:49 2026 rev:16 rq:1331909 version:0.450.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Tk-Clock/perl-Tk-Clock.changes 2023-02-16 16:56:09.922775806 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Tk-Clock.new.1670/perl-Tk-Clock.changes 2026-02-09 15:34:58.439707472 +0100 @@ -1,0 +2,6 @@ +Mon Jan 26 05:53:59 UTC 2026 - Tina Müller <[email protected]> + +- updated to 0.450.0 (0.45) + see /usr/share/doc/packages/perl-Tk-Clock/ChangeLog + +------------------------------------------------------------------- Old: ---- Tk-Clock-0.44.tgz New: ---- README.md Tk-Clock-0.45.tgz _scmsync.obsinfo build.specials.obscpio ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Tk-Clock.spec ++++++ --- /var/tmp/diff_new_pack.jXwtwx/_old 2026-02-09 15:34:59.099735233 +0100 +++ /var/tmp/diff_new_pack.jXwtwx/_new 2026-02-09 15:34:59.099735233 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Tk-Clock # -# Copyright (c) 2023 SUSE LLC +# Copyright (c) 2026 SUSE LLC and contributors # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,30 +18,35 @@ %define cpan_name Tk-Clock Name: perl-Tk-Clock -Version: 0.44 +Version: 0.450.0 Release: 0 +# 0.45 -> normalize -> 0.450.0 +%define cpan_version 0.45 License: Artistic-1.0 OR GPL-1.0-or-later Summary: Clock widget with analog and digital display URL: https://metacpan.org/release/%{cpan_name} -Source0: https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz +Source0: https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{cpan_version}.tgz Source1: cpanspec.yml +Source100: README.md BuildArch: noarch BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Test::More) >= 0.90 BuildRequires: perl(Test::NoWarnings) -BuildRequires: perl(Tk) >= 402.000 +BuildRequires: perl(Tk) >= 402.0 BuildRequires: perl(Tk::Canvas) BuildRequires: perl(Tk::Derived) BuildRequires: perl(Tk::Widget) Requires: perl(Test::More) >= 0.9 Requires: perl(Test::NoWarnings) -Requires: perl(Tk) >= 402.000 +Requires: perl(Tk) >= 402.0 Requires: perl(Tk::Canvas) Requires: perl(Tk::Derived) Requires: perl(Tk::Widget) -Recommends: perl(Encode) >= 3.19 -Recommends: perl(Tk) >= 804.036 +Provides: perl(Tk::Clock) = %{version} +%undefine __perllib_provides +Recommends: perl(Encode) >= 3.21 +Recommends: perl(Tk) >= 804.36 %{perl_requires} %description @@ -51,8 +56,9 @@ Both analog and digital clocks are implemented. %prep -%autosetup -n %{cpan_name}-%{version} -find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 +%autosetup -n %{cpan_name}-%{cpan_version} -p1 + +find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -path "*/scripts/*" ! -name "configure" -print0 | xargs -0 chmod 644 # MANUAL BEGIN sed -i -e 's,/pro/bin/perl,/usr/bin/perl,' examples/*pl # MANUAL END @@ -70,5 +76,5 @@ %perl_gen_filelist %files -f %{name}.files -%doc ChangeLog CONTRIBUTING.md examples README +%doc ChangeLog CONTRIBUTING.md examples README SECURITY.md ++++++ README.md ++++++ ## Build Results Current state of perl in openSUSE:Factory is  The current state of perl in the devel project build (devel:languages:perl)  ++++++ Tk-Clock-0.44.tgz -> Tk-Clock-0.45.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/ChangeLog new/Tk-Clock-0.45/ChangeLog --- old/Tk-Clock-0.44/ChangeLog 2023-01-06 15:40:05.000000000 +0100 +++ new/Tk-Clock-0.45/ChangeLog 2026-01-25 13:16:56.000000000 +0100 @@ -1,7 +1,19 @@ -0.43 - 06 Jan 2023, H.Merijn Brand +0.45 - 25 Jan 2026, H.Merijn Brand + * Refine requirements based on CVE's + * Work around groff-1.24 + * It's 2024 + * Missing ; in doc example + * Tested on perl-5.40 + * Added textInfo / useText + * Added time2* with own timeZone + * It's 2026 + +0.44 - 06 Jan 2023, H.Merijn Brand + * It's 2023 + +0.43 - 01 Jan 2022, H.Merijn Brand * It's 2021 - no changes in 2021 * It's 2022 - * It's 2023 0.42 - 23 Dec 2020, H.Merijn Brand * Ignore leading dash in config diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/Clock.pm new/Tk-Clock-0.45/Clock.pm --- old/Tk-Clock-0.44/Clock.pm 2023-01-06 15:40:27.000000000 +0100 +++ new/Tk-Clock-0.45/Clock.pm 2026-01-25 13:17:05.000000000 +0100 @@ -5,7 +5,7 @@ use strict; use warnings; -our $VERSION = "0.44"; +our $VERSION = "0.45"; use Carp; @@ -50,6 +50,17 @@ infoFormat => "HH:MM:SS", infoFont => "fixed 6", + useText => 0, + + textColor => "#c4c4c4", + textFormat => " ", + textFont => "fixed 6", + + time2Font => "fixed 6", + time2Color => "Gray30", + time2Format => "", + time2TZ => "", + useDigital => 1, digiAlign => "center", @@ -71,6 +82,9 @@ fmti => sub { sprintf "%02d:%02d:%02d", @_[2,1,0]; }, + fmt2 => sub { + sprintf "%02d:%02d:%02d", @_[2,1,0]; + }, _anaSize => $ana_base, # Default size (height & width) _digSize => 26, # Height @@ -117,6 +131,7 @@ useAnalog useDigital useInfo + useText useSecHand ); } # _booleans @@ -327,6 +342,27 @@ ($h - $x / 4, $h + $y / 4, $h + $x, $h - $y); } # _where +sub _timeText { + my ($data, $tag) = @_; + my $tf = $data->{"${tag}Format"}; + local $ENV{TZ} = $data->{"${tag}TZ"} || $data->{timeZone} || $ENV{TZ}; + my $text = ref $tf eq "CODE" ? $tf->(localtime) + : ref $tf eq "SCALAR" ? $$tf : $tf; + return $text; + } # _timeText + +sub _createTimeText { + my ($clock, $data, $tag, $h, $f) = @_; + my $text = _timeText ($data, $tag); + $clock->createText ($h, int ($f * $h), + -anchor => "n", + -width => int (1.2 * $h), + -font => $data->{"${tag}Font"}, + -fill => $data->{"${tag}Color"}, + -text => $text, + -tags => $tag); + } # _createTimeText + sub _createAnalog { my $clock = shift; @@ -350,6 +386,20 @@ -text => $data->{infoFormat}, -tags => "info"); } + if ($data->{useText}) { + _createTimeText ($clock, $data, "text", $h, 1.5); + } + if ($data->{time2TZ}) { + $data->{time2TZ} ||= "UTC"; + $data->{time2Format} or $clock->config (time2Format => "HH:MM:SS"); + unless (ref $data->{time2Format}) { + ref $data->{fmt2} and $data->{time2Format} = $data->{fmt2}; + } + _createTimeText ($clock, $data, "time2", $h, 0.7); + } + else { + $data->{time2Format} = ""; + } my $f = $data->{tickFreq} * 2; foreach my $dtick (0 .. 119) { @@ -420,7 +470,7 @@ sub _destroyAnalog { my $clock = shift; - $clock->delete ($_) for qw( back info tick hour min sec ); + $clock->delete ($_) for qw( back text info time2 tick hour min sec ); } # _destroyAnalog sub Populate { @@ -465,6 +515,8 @@ digiAlign => 99985, useAnalog => 99990, useInfo => 99991, + useText => 99991, + time2TZ => 99991, tickFreq => 99992, anaScale => 99995, useLocale => 1, @@ -507,7 +559,7 @@ keys %$conf) { (my $attr = $conf_spec) =~ s/^-//; $attr =~ m/^_/ and next; # Internal use only! - defined $def_config{$attr} && defined $data->{$attr} or next; + exists $def_config{$attr} && exists $data->{$attr} or next; my $old = $data->{$attr}; $data->{$attr} = $conf->{$conf_spec}; if ($attr eq "tickColor") { @@ -532,16 +584,29 @@ elsif ($attr eq "timeFont") { $clock->itemconfigure ("time", -font => $data->{timeFont}); } + elsif ($attr eq "time2Color") { + $clock->itemconfigure ("time2",-fill => $data->{time2Color}); + } + elsif ($attr eq "time2Font") { + $clock->itemconfigure ("time2",-font => $data->{time2Font}); + } elsif ($attr eq "infoColor") { $clock->itemconfigure ("info", -fill => $data->{infoColor}); } elsif ($attr eq "infoFont") { $clock->itemconfigure ("info", -font => $data->{infoFont}); } + elsif ($attr eq "textColor") { + $clock->itemconfigure ("text", -fill => $data->{textColor}); + } + elsif ($attr eq "textFont") { + $clock->itemconfigure ("text", -font => $data->{textFont}); + } elsif ($attr eq "useLocale") { $locale{$data->{useLocale}} or _newLocale ($data->{useLocale}); } - elsif ($attr eq "dateFormat" || $attr eq "timeFormat" || $attr eq "infoFormat") { + elsif ($attr eq "dateFormat" || $attr eq "timeFormat" || $attr eq "time2Format" || + $attr eq "infoFormat" || $attr eq "textFormat") { my %fmt = ( "S" => '%d', # 45 "SS" => '%02d', # 45 @@ -600,7 +665,7 @@ } } $data->{Clock_h} = -1; # force update; - $data->{"fmt".substr $attr, 0, 1} = eval join "\n" => + my $cb = eval join "\n" => q[ sub ], q[ { ], q[ my ($S, $M, $H, $d, $m, $y, $wd, $yd, $dst, ], @@ -612,6 +677,8 @@ q[ $h ||= 12; ], qq[ sprintf qq!$fmt!$args; ], q[ } ]; + my $fmt_tag = $attr =~ m/^time2/ ? "2" : substr $attr, 0, 1; + $data->{"fmt$fmt_tag"} = $cb; } elsif ($attr eq "timerValue") { $data->{timerStart} = $data->{timerValue} ? time : undef; @@ -686,6 +753,26 @@ } $clock->after (5, ["_run" => $clock]); } + elsif ($attr eq "useText") { + if ($old ^ $data->{useText} && $data->{useAnalog}) { + $clock->_destroyAnalog; + $clock->_destroyDigital; + $clock->_createAnalog; + $data->{useDigital} and $clock->_createDigital; + } + $clock->after (5, ["_run" => $clock]); + } + elsif ($attr eq "time2TZ") { + defined $data->{time2TZ} or $data->{time2TZ} = ""; + if ($old ^ $data->{time2TZ} && $data->{useAnalog}) { + $data->{time2TZ} && !$data->{time2Format} and $clock->config (time2Format => "HH:MM:SS"); + $clock->_destroyAnalog; + $clock->_destroyDigital; + $clock->_createAnalog; + $data->{useDigital} and $clock->_createDigital; + } + $clock->after (5, ["_run" => $clock]); + } elsif ($attr eq "useDigital") { if ($old == 1 && !$data->{useDigital}) { $clock->_destroyDigital; @@ -780,14 +867,14 @@ $clock->coords ("sec", $clock->_where ($data->{Clock_s}, 34, $data->{_anaSize})); $data->{fmti} ||= sub { sprintf "%02d:%02d:%02d", @_[2,1,0]; }; - $data->{useInfo} and - $clock->itemconfigure ("info", -text => $data->{fmti}->(@t)); + $data->{useInfo} ? $clock->itemconfigure ("info", -text => $data->{fmti}->(@t)) : $clock->delete ("info"); + $data->{useText} ? $clock->itemconfigure ("text", -text => _timeText ($data, "text")) : $clock->delete ("text"); + $data->{time2TZ} ? $clock->itemconfigure ("time2", -text => _timeText ($data, "time2")) : $clock->delete ("time2"); } $data->{fmtt} ||= sub { sprintf "%02d:%02d:%02d", @_[2,1,0]; }; - $data->{useDigital} and - $clock->itemconfigure ("time", -text => $data->{fmtt}->(@t)); + $data->{useDigital} and $clock->itemconfigure ("time", -text => $data->{fmtt}->(@t)); - $data->{autoScale} and $clock->_resize_auto; + $data->{autoScale} and $clock->_resize_auto; } # _run 1; @@ -800,7 +887,7 @@ =head1 SYNOPSIS - use Tk + use Tk; use Tk::Clock; $clock = $parent->Clock (?-option => <value> ...?); @@ -829,6 +916,14 @@ infoColor => "#cfb53b", infoFormat => "HH:MM:SS", infoFont => "fixed 6", + useText => 0, + textColor => "#c4c4c4", + textFormat => "HH:MM:SS", + textFont => "fixed 6", + time2Font => "fixed 6", + time2Color => "Red4", + time2Format => "HH:MM:SS", + time2TZ => "Europe/Amsterdam", useDigital => 1, digiAlign => "center", @@ -865,18 +960,20 @@ =item useInfo (0) +=item useText (0) + =item useDigital (1) Enable the analog clock (C<useAnalog>) and/or the digital clock (C<useDigital>) in the widget. The analog clock will always be displayed above the digital part - +----------+ - | .. | \ - | . \_ . | |_ Analog clock - | . . | | - | .. | / - | 23:59:59 | --- Digital time - | 31-12-09 | --- Digital date + +----------+ ...... + | .. | \ . \ | . + | . \_ . | |_ Analog clock . Tim2 . + | . . | | . * . + | .. | / . Info . + | 23:59:59 | --- Digital time . Text . + | 31-12-09 | --- Digital date ...... +----------+ The analog clock displays ticks, hour hand, minutes hand and second hand. @@ -886,6 +983,12 @@ The C<useInfo> enables a text field between the backdrop of the analog clock and its items. You can use this field to display personal data. +The C<useText> is like second line of C<useInfo>, but with support for +callbacks or variable binding. + + $clock->configure (useText => 1, textFormat => \$foo); + $clock->configure (useText => 1, textFormat => sub { int rand 42 }); + =item autoScale (0) When set to a true value, the widget will try to re-scale itself to @@ -1043,6 +1146,35 @@ The text shown in the formats C<ddd>, C<dddd>, C<mmm>, and C<mmmm> might be influenced by the setting of C<useLocale>. The fallback is locale "C". +=item time2Font ("fixed 6") + +Controls the font to be used for the alternate time in the analog clock. Will +accept all fonts that are supported in your version of perl/Tk. This includes +both True Type and X11 notation. + + $clock->config (time2Font => "{Liberation Mono} 11"); + +=item time2Color ("Gray30") + +Controls the color of the alternate time line of the analog clock. + + $clock->config (time2Color => "#00ff00"); + +=item time2Format ("HH:MM:SS") + +Defines the format of the alternate time line of the analog clock. By +default it will display the time in a 24-hour notation. + +The supported format is the same as for C<timeFormat>. + +=item time2TZ ("Europe/Amsterdam") + +Define the time zone for the alternate time in the analog clock. When +empty, it disables the display of an alternate time. + + $clock->config (time2TZ => ""); + $clock->config (time2TZ => "UTC"); + =item dateFont ("fixed 6") Controls the font to be used for the bottom line in the digital clock. Will @@ -1172,7 +1304,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 1999-2023 H.Merijn Brand +Copyright (C) 1999-2026 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.44/MANIFEST new/Tk-Clock-0.45/MANIFEST --- old/Tk-Clock-0.44/MANIFEST 2023-01-06 15:44:04.000000000 +0100 +++ new/Tk-Clock-0.45/MANIFEST 2026-01-25 13:19:41.000000000 +0100 @@ -18,7 +18,9 @@ t/20_resize.t t/30_dual.t t/40_backdrop.t +t/50_infotext.t t/eye.png t/eye2.png +SECURITY.md Guide for reporting security issues META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/META.json new/Tk-Clock-0.45/META.json --- old/Tk-Clock-0.44/META.json 2023-01-06 15:44:04.000000000 +0100 +++ new/Tk-Clock-0.45/META.json 2026-01-25 13:19:41.000000000 +0100 @@ -1,69 +1,75 @@ { - "abstract" : "Clock widget with analog and digital display", + "version" : "0.45", + "release_status" : "stable", "name" : "Tk-Clock", - "dynamic_config" : 1, + "author" : [ + "H.Merijn Brand <[email protected]>" + ], "provides" : { "Tk::Clock" : { - "version" : "0.44", + "version" : "0.45", "file" : "Clock.pm" - } - }, - "resources" : { - "bugtracker" : { - "web" : "https://github.com/Tux/Tk-Clock/issues"; - }, - "repository" : { - "web" : "https://github.com/Tux/Tk-Clock";, - "type" : "git", - "url" : "https://github.com/Tux/Tk-Clock"; - }, - "license" : [ - "http://dev.perl.org/licenses/"; - ] - }, - "author" : [ - "H.Merijn Brand <[email protected]>" - ], + } + }, + "meta-spec" : { + "version" : 2, + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec"; + }, + "license" : [ + "perl_5" + ], "prereqs" : { "configure" : { + "recommends" : { + "ExtUtils::MakeMaker" : "7.22" + }, + "suggests" : { + "ExtUtils::MakeMaker" : "7.76" + }, "requires" : { "ExtUtils::MakeMaker" : "0" - } - }, + } + }, "test" : { "requires" : { "Test::NoWarnings" : "0", "Test::More" : "0.90" - }, - "recommends" : { - "Test::More" : "1.302191" - } }, + "recommends" : { + "Test::More" : "1.302219" + } + }, "runtime" : { + "recommends" : { + "Encode" : "3.21", + "Tk" : "804.036" + }, "requires" : { + "POSIX" : "0", "Tk" : "402.000", "Tk::Canvas" : "0", "perl" : "5.006", - "POSIX" : "0", - "Tk::Derived" : "0", - "Tk::Widget" : "0", "Carp" : "0", + "Tk::Widget" : "0", + "Tk::Derived" : "0", "Encode" : "0" - }, - "recommends" : { - "Tk" : "804.036", - "Encode" : "3.19" - } } - }, - "license" : [ - "perl_5" - ], - "version" : "0.44", + } + }, + "abstract" : "Clock widget with analog and digital display", "generated_by" : "Author", - "meta-spec" : { - "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, - "version" : 2 + "dynamic_config" : 1, + "resources" : { + "bugtracker" : { + "web" : "https://github.com/Tux/Tk-Clock/issues"; }, - "release_status" : "stable" + "license" : [ + "http://dev.perl.org/licenses/"; + ], + "repository" : { + "url" : "https://github.com/Tux/Tk-Clock";, + "type" : "git", + "web" : "https://github.com/Tux/Tk-Clock"; + } } +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/META.yml new/Tk-Clock-0.45/META.yml --- old/Tk-Clock-0.44/META.yml 2023-01-06 15:44:04.000000000 +0100 +++ new/Tk-Clock-0.45/META.yml 2026-01-25 13:19:41.000000000 +0100 @@ -1,11 +1,11 @@ --- abstract: Clock widget with analog and digital display author: - - H.Merijn Brand <[email protected]> + - H.Merijn Brand <[email protected]> configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: Author, CPAN::Meta::Converter version 2.150010 +generated_by: Author, CPAN::Meta::Converter version 2.150011 license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -14,10 +14,10 @@ provides: Tk::Clock: file: Clock.pm - version: '0.44' + version: '0.45' recommends: - Encode: '3.19' - Test::More: '1.302191' + Encode: '3.21' + Test::More: '1.302219' Tk: '804.036' requires: Carp: 0 @@ -34,4 +34,4 @@ bugtracker: https://github.com/Tux/Tk-Clock/issues license: http://dev.perl.org/licenses/ repository: https://github.com/Tux/Tk-Clock -version: '0.44' +version: '0.45' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/Makefile.PL new/Tk-Clock-0.45/Makefile.PL --- old/Tk-Clock-0.44/Makefile.PL 2023-01-06 15:39:35.000000000 +0100 +++ new/Tk-Clock-0.45/Makefile.PL 2026-01-25 13:16:29.000000000 +0100 @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright PROCURA B.V. (c) 1999-2023 H.Merijn Brand +# Copyright PROCURA B.V. (c) 1999-2026 H.Merijn Brand require 5.006; @@ -101,8 +101,8 @@ ' pod2html < $? 2>&1 | grep -v "^Cannot find" > $@', 'doc/Clock.3: Clock.pm', ' pod2man < $? > $@', - 'doc/Clock.man: doc/Clock.3', - ' nroff -mandoc < $? > $@', + 'doc/Clock.man: doc/Clock.3', + ' nroff2man < $? > $@', '', $min_vsn; } # postamble diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/README new/Tk-Clock-0.45/README --- old/Tk-Clock-0.44/README 2023-01-06 15:39:38.000000000 +0100 +++ new/Tk-Clock-0.45/README 2026-01-25 13:16:32.000000000 +0100 @@ -12,7 +12,7 @@ ration, which makes it not Y2K compliant. COPYING: - Copyright (c) 1998-2023 H.Merijn Brand. All rights reserved. + Copyright (c) 1998-2026 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) 1998-2023 H.Merijn Brand + Copyright (C) 1998-2026 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.44/SECURITY.md new/Tk-Clock-0.45/SECURITY.md --- old/Tk-Clock-0.44/SECURITY.md 1970-01-01 01:00:00.000000000 +0100 +++ new/Tk-Clock-0.45/SECURITY.md 2026-01-25 13:19:20.000000000 +0100 @@ -0,0 +1,103 @@ +# Security Policy for the Tk::Clock distribution. + +Report security issues by email to H.Merijn Brand <[email protected]>. + +This is the Security Policy for Tk::Clock. + +The latest version of the Security Policy can be found in the +[git repository for Tk::Clock](https://github.com/Tux/Tk-Clock). + +This text is based on the CPAN Security Group's Guidelines for Adding +a Security Policy to Perl Distributions (version 1.3.0) +https://security.metacpan.org/docs/guides/security-policy-for-authors.html + +# How to Report a Security Vulnerability + +Security vulnerabilities can be reported to the current Tk::Clock +maintainers by email to H.Merijn Brand <[email protected]>. + +Please include as many details as possible, including code samples +or test cases, so that we can reproduce the issue. Check that your +report does not expose any sensitive data, such as passwords, +tokens, or personal information. + +If you would like any help with triaging the issue, or if the issue +is being actively exploited, please copy the report to the CPAN +Security Group (CPANSec) at <[email protected]>. + +Please *do not* use the public issue reporting system on RT or +GitHub issues for reporting security vulnerabilities. + +Please do not disclose the security vulnerability in public forums +until past any proposed date for public disclosure, or it has been +made public by the maintainers or CPANSec. That includes patches or +pull requests. + +For more information, see +[Report a Security Issue](https://security.metacpan.org/docs/report.html) +on the CPANSec website. + +## Response to Reports + +The maintainer(s) aim to acknowledge your security report as soon as +possible. However, this project is maintained by a single person in +their spare time, and they cannot guarantee a rapid response. If you +have not received a response from them within 10 days, then +please send a reminder to them and copy the report to CPANSec at +<[email protected]>. + +Please note that the initial response to your report will be an +acknowledgement, with a possible query for more information. It +will not necessarily include any fixes for the issue. + +The project maintainer(s) may forward this issue to the security +contacts for other projects where we believe it is relevant. This +may include embedded libraries, system libraries, prerequisite +modules or downstream software that uses this software. + +They may also forward this issue to CPANSec. + +# Which Software This Policy Applies To + +Any security vulnerabilities in Tk::Clock are covered by this policy. + +Security vulnerabilities in versions of any libraries that are +included in Tk::Clock are also covered by this policy. + +Security vulnerabilities are considered anything that allows users +to execute unauthorised code, access unauthorised resources, or to +have an adverse impact on accessibility or performance of a system. + +Security vulnerabilities in upstream software (prerequisite modules +or system libraries, or in Perl), are not covered by this policy +unless they affect Tk::Clock, or Tk::Clock can +be used to exploit vulnerabilities in them. + +Security vulnerabilities in downstream software (any software that +uses Tk::Clock, or plugins to it that are not included with the +Tk::Clock distribution) are not covered by this policy. + +## Supported Versions of Tk::Clock + +The maintainer(s) will only commit to releasing security fixes for +the latest version of Tk::Clock. + +Note that the Tk::Clock project only supports major versions of Perl +released in the past 5 years, even though Tk::Clock will run on +older versions of Perl. If a security fix requires us to increase +the minimum version of Perl that is supported, then we may do so. + +# Installation and Usage Issues + +The distribution metadata specifies minimum versions of +prerequisites that are required for Tk::Clock to work. However, some +of these prerequisites may have security vulnerabilities, and you +should ensure that you are using up-to-date versions of these +prerequisites. + +Where security vulnerabilities are known, the metadata may indicate +newer versions as recommended. + +## Usage + +Please see the software documentation for further information. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/cpanfile new/Tk-Clock-0.45/cpanfile --- old/Tk-Clock-0.44/cpanfile 2023-01-06 15:44:04.000000000 +0100 +++ new/Tk-Clock-0.45/cpanfile 2026-01-25 13:19:41.000000000 +0100 @@ -6,16 +6,20 @@ requires "Tk::Derived"; requires "Tk::Widget"; -recommends "Encode" => "3.19"; +recommends "Encode" => "3.21"; recommends "Tk" => "804.036"; on "configure" => sub { requires "ExtUtils::MakeMaker"; + + recommends "ExtUtils::MakeMaker" => "7.22"; + + suggests "ExtUtils::MakeMaker" => "7.76"; }; on "test" => sub { requires "Test::More" => "0.90"; requires "Test::NoWarnings"; - recommends "Test::More" => "1.302191"; + recommends "Test::More" => "1.302219"; }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/examples/world.pl new/Tk-Clock-0.45/examples/world.pl --- old/Tk-Clock-0.44/examples/world.pl 2010-06-01 20:10:51.000000000 +0200 +++ new/Tk-Clock-0.45/examples/world.pl 2024-10-31 13:40:30.000000000 +0100 @@ -54,9 +54,14 @@ dateFont => "{Liberation Mono} 12", dateColor => "Gold", - dateFormat => $city, - timeZone => $tz, - handColor => $color, + dateFormat => $city, + timeZone => $tz, + handColor => $color, + + time2TZ => "UTC", + time2Font => "{Liberation Mono} 12", + time2Color => "Silver", + time2Format => "HH:MM:SS", ); $c->pack (-side => "left", -expand => 1, -fill => "both"); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/t/30_dual.t new/Tk-Clock-0.45/t/30_dual.t --- old/Tk-Clock-0.44/t/30_dual.t 2015-01-03 11:34:34.000000000 +0100 +++ new/Tk-Clock-0.45/t/30_dual.t 2024-10-31 15:12:01.000000000 +0100 @@ -35,6 +35,10 @@ dateFont => "{fixed} 11", dateColor => "#cfb53b", infoFont => "{Helvetica} 11 bold", + time2TZ => "UTC", + time2Color => "White", + time2Font => "{fixed} 12", +# time2Format => "HH:MM:SS", ); ok (my $c1 = $m->Clock (%defconfig), "Clock Local TimeZone"); @@ -44,6 +48,9 @@ handColor => "Red", timeZone => $ENV{TZ} || undef, dateFormat => "Local", + useText => 1, + textFormat => "\x{03a9}", + textColor => "Blue", )), qr(^Tk::Clock=HASH), "config"); ok ($c1->grid (-column => 0, -row => 0, -sticky => "news"), "grid"); @@ -56,6 +63,8 @@ handColor => "Orange", timeZone => "GMT", dateFormat => "London (GMT)", + useText => 1, + textFormat => "\x{23f0}", ), qr(^Tk::Clock=HASH), "config"); ok ($c2->grid (-column => 0, -row => 1, -sticky => "news", -padx => 20), "grid"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Tk-Clock-0.44/t/50_infotext.t new/Tk-Clock-0.45/t/50_infotext.t --- old/Tk-Clock-0.44/t/50_infotext.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Tk-Clock-0.45/t/50_infotext.t 2024-10-02 14:13:00.000000000 +0200 @@ -0,0 +1,74 @@ +#!/pro/bin/perl + +use strict; +use warnings; + +use Test::More; +require Test::NoWarnings; + +BEGIN { + use_ok ("Tk"); + use_ok ("Tk::Clock"); + } + +my ($delay, $m) = $ENV{TK_TEST_LENGTH} || 1000; +unless ($m = eval { MainWindow->new (-title => "clock") }) { + diag ("No valid Tk environment"); + done_testing; + exit 0; + } + +ok (my $c = $m->Clock (-relief => "flat"), "base clock"); +ok ($c->config ( + useAnalog => 1, + useDigital => 1, + dateFont => "{DejaVu Sans Mono} 11", + timeFont => "{DejaVu Sans Mono} 11", + infoFont => "{DejaVu Sans Mono} 11", + textFont => "{DejaVu Sans Mono} 11", + dateColor => "Blue", + timeColor => "Red", + infoColor => "Green", + textColor => "Orange", + handColor => "#ffe0e0", + useSecHand => 0, + tickColor => "Blue", + tickDiff => 1, + handCenter => 1, + anaScale => 330, + ), "base config ()"); +$c->pack (-expand => 1, -expand => "both"); + +sub text { int rand 9000 }; + +my $ix = 15; +sub next_ix { + my $use_dt = $ix & 010; + my $use_tm = $ix & 004; + my $use_if = $ix & 002; + my $use_tx = $ix & 001; + + ok ($c->config ( + useInfo => $use_if, + useText => $use_tx, + dateFormat => $use_dt ? "yyyy-mm-dd" : " ", + timeFormat => $use_tm ? "HH:MM:SS" : " ", + infoFormat => $use_if ? "Info" : " ", + textFormat => $use_tx ? \&text : " ", + ), "config ($ix, $use_dt, $use_tm, $use_if, $use_tx)"); + $c->update; + if ($ix--) { + $c->after ($delay, \&next_ix); + } + else { + $c->packForget; + $c->destroy; + Test::NoWarnings::had_no_warnings (); + done_testing; + exit 0; + } + } # next_ix + +$c->after ($delay, \&next_ix); + +MainLoop; ++++++ _scmsync.obsinfo ++++++ mtime: 1769406840 commit: e9ae0a93f6cbe94aa6922b5ba028f8d6092159f3f77721cc1f4b371236031191 url: https://src.opensuse.org/perl/perl-Tk-Clock.git revision: e9ae0a93f6cbe94aa6922b5ba028f8d6092159f3f77721cc1f4b371236031191 projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-01-28 06:48:22.000000000 +0100 @@ -0,0 +1 @@ +.osc
