Hello community,
here is the log from the commit of package perl-Term-ProgressBar for
openSUSE:Factory checked in at 2017-07-21 22:47:44
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Term-ProgressBar (Old)
and /work/SRC/openSUSE:Factory/.perl-Term-ProgressBar.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Term-ProgressBar"
Fri Jul 21 22:47:44 2017 rev:8 rq:509656 version:2.20
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Term-ProgressBar/perl-Term-ProgressBar.changes
2016-12-10 18:28:50.164744332 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Term-ProgressBar.new/perl-Term-ProgressBar.changes
2017-07-21 22:47:50.917852374 +0200
@@ -1,0 +2,18 @@
+Wed Jul 12 06:13:35 UTC 2017 - [email protected]
+
+- updated to 2.20
+ see /usr/share/doc/packages/perl-Term-ProgressBar/Changes
+
+ 2.20 2017-07-11 MANWAR
+ - silent mode avoids uninitialized value messages (GFIREBALL)
+
+-------------------------------------------------------------------
+Tue Jul 11 06:26:04 UTC 2017 - [email protected]
+
+- updated to 2.19
+ see /usr/share/doc/packages/perl-Term-ProgressBar/Changes
+
+ 2.19 2017-07-10 MANWAR
+ - Fixed inconsistent version as reported by CPANTS.
+
+-------------------------------------------------------------------
Old:
----
Term-ProgressBar-2.18.tar.gz
New:
----
Term-ProgressBar-2.20.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Term-ProgressBar.spec ++++++
--- /var/tmp/diff_new_pack.cN95DZ/_old 2017-07-21 22:47:51.485772263 +0200
+++ /var/tmp/diff_new_pack.cN95DZ/_new 2017-07-21 22:47:51.489771698 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Term-ProgressBar
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 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
@@ -17,14 +17,14 @@
Name: perl-Term-ProgressBar
-Version: 2.18
+Version: 2.20
Release: 0
%define cpan_name Term-ProgressBar
Summary: Provide a Progress Meter On a Standard Terminal
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Term-ProgressBar/
-Source0:
http://www.cpan.org/authors/id/M/MA/MANWAR/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/M/MA/MANWAR/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
++++++ Term-ProgressBar-2.18.tar.gz -> Term-ProgressBar-2.20.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Term-ProgressBar-2.18/Changes
new/Term-ProgressBar-2.20/Changes
--- old/Term-ProgressBar-2.18/Changes 2016-12-06 14:07:40.000000000 +0100
+++ new/Term-ProgressBar-2.20/Changes 2017-07-10 13:30:15.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Perl extension Term::ProgressBar
+2.20 2017-07-11 MANWAR
+ - silent mode avoids uninitialized value messages (GFIREBALL)
+
+2.19 2017-07-10 MANWAR
+ - Fixed inconsistent version as reported by CPANTS.
+
2.18 2016-12-06 MANWAR
- Add MANIFEST file.
- Removed META.yml file.
@@ -104,4 +110,4 @@
1.00 2001-10-30
- original version
- - by Edward Avis, <epa98 at sync32>
+ - by Edward Avis, <epa98 at sync32>
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Term-ProgressBar-2.18/META.json
new/Term-ProgressBar-2.20/META.json
--- old/Term-ProgressBar-2.18/META.json 2016-12-06 14:10:36.000000000 +0100
+++ new/Term-ProgressBar-2.20/META.json 2017-07-11 11:41:15.000000000 +0200
@@ -4,7 +4,7 @@
"Martyn J. Pearce"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter
version 2.150005",
+ "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter
version 2.150005",
"license" : [
"perl_5"
],
@@ -50,6 +50,6 @@
"url" : "https://github.com/manwar/Term-ProgressBar";
}
},
- "version" : "2.18",
- "x_serialization_backend" : "JSON::PP version 2.27300"
+ "version" : "2.20",
+ "x_serialization_backend" : "JSON::PP version 2.27400"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Term-ProgressBar-2.18/META.yml
new/Term-ProgressBar-2.20/META.yml
--- old/Term-ProgressBar-2.18/META.yml 2016-12-06 14:10:36.000000000 +0100
+++ new/Term-ProgressBar-2.20/META.yml 2017-07-11 11:41:15.000000000 +0200
@@ -10,7 +10,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version
2.150005'
+generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version
2.150005'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -29,5 +29,5 @@
perl: '5.006'
resources:
repository: https://github.com/manwar/Term-ProgressBar
-version: '2.18'
+version: '2.20'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Term-ProgressBar-2.18/lib/Term/ProgressBar/IO.pm
new/Term-ProgressBar-2.20/lib/Term/ProgressBar/IO.pm
--- old/Term-ProgressBar-2.18/lib/Term/ProgressBar/IO.pm 2016-11-27
11:07:41.000000000 +0100
+++ new/Term-ProgressBar-2.20/lib/Term/ProgressBar/IO.pm 2017-07-10
13:30:15.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '2.17';
+our $VERSION = '2.20';
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
@@ -149,9 +149,3 @@
__END__
-
-
-
-
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Term-ProgressBar-2.18/lib/Term/ProgressBar.pm
new/Term-ProgressBar-2.20/lib/Term/ProgressBar.pm
--- old/Term-ProgressBar-2.18/lib/Term/ProgressBar.pm 2016-11-27
11:55:13.000000000 +0100
+++ new/Term-ProgressBar-2.20/lib/Term/ProgressBar.pm 2017-07-10
13:30:15.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '2.18';
+our $VERSION = '2.20';
#XXX TODO Redo original test with count=20
# Amount Output
@@ -463,7 +463,6 @@
sub init {
my $self = shift;
- return if $self->silent;
# V1 Compatibility
return $self->init({count => $_[1], name => $_[0],
@@ -684,7 +683,6 @@
# We generate these by hand since we want to check the values.
sub bar_width {
my $self = shift;
- return if $self->silent;
return $self->{bar_width} if not @_;
croak 'wrong number of arguments' if @_ != 1;
croak 'bar_width < 1' if $_[0] < 1;
@@ -692,7 +690,6 @@
}
sub term_width {
my $self = shift;
- return if $self->silent;
return $self->{term_width} if not @_;
croak 'wrong number of arguments' if @_ != 1;
croak 'term_width must be at least 5' if $self->term and $_[0] < 5;
@@ -701,7 +698,6 @@
sub target {
my $self = shift;
- return if $self->silent;
if ( @_ ) {
my ($target) = @_;
@@ -788,7 +784,10 @@
sub update {
my $self = shift;
- return if $self->silent;
+ # returning target+1 as next value should avoid calling update
+ # method in the smooth form of using the progress bar
+ return $self->target+1 if $self->silent;
+
my ($so_far) = @_;
if ( ! defined $so_far ) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Term-ProgressBar-2.18/t/silent.t
new/Term-ProgressBar-2.20/t/silent.t
--- old/Term-ProgressBar-2.18/t/silent.t 2016-11-27 11:23:04.000000000
+0100
+++ new/Term-ProgressBar-2.20/t/silent.t 2017-07-10 13:30:15.000000000
+0200
@@ -10,7 +10,7 @@
=cut
-use Test::More tests => 8;
+use Test::More tests => 13;
use Test::Exception;
use Capture::Tiny qw(capture_stderr);
@@ -19,7 +19,7 @@
# -------------------------------------
-=head2 Test
+=head2 Test 1--5
Create a progress bar with 10 things.
Update it it from 1 to 10. Verify that it has no output.
@@ -41,7 +41,7 @@
# -------------------------------------
-=head2 Tests 9--11: Message Check
+=head2 Tests 6--8: Message Check
Run a progress bar from 0 to 100, each time calling a message after an update.
Check that we still have no output.
@@ -55,7 +55,42 @@
lives_ok { for (0..100) { $p->update($_); $p->message("Hello") } }
'Message Check ( 2)';
};
- ok !$err, 'We should sill have no output';
+ ok !$err, 'We should still have no output';
+}
+
+# ----------------------------------------------------------------------------
+
+=head2 Tests 9--13: Message Check
+
+Run a progress bar from 0 to 1000, each time calling a message after an update.
+Check that we still have no output.
+
+=cut
+{
+ my $err = capture_stderr {
+ my $p;
+ my $max_value = 1000;
+ my $half_value = int($max_value/2);
+ lives_ok { $p = Term::ProgressBar->new({ count => $max_value, silent =>
1}); } 'Count 1-1000 (1)';
+ my $next_value = 0;
+ lives_ok {
+ for (my $i=0; $i<$half_value; $i++)
+ {
+ $next_value = $p->update($i) if ($i >= $next_value);
+ }
+ } 'Count 1-1000 (2)';
+ lives_ok { $p->message($MESSAGE1) } 'Count 1-1000 (3)';
+ lives_ok {
+ for (my $i=$half_value; $i<$max_value; $i++)
+ {
+ $next_value = $p->update($i) if ($i >= $next_value);
+ }
+ } 'Count 1-1000 (4)';
+ };
+
+ diag "ERR:\n$err\nlength: " . length($err)
+ if $ENV{TEST_DEBUG};
+ ok !$err, 'We should still have no output even with warnings enabled';
}
# ----------------------------------------------------------------------------
