Hello community,
here is the log from the commit of package perl-Number-Compare for
openSUSE:Factory
checked in at Tue Sep 13 12:38:14 CEST 2011.
--------
--- perl-Number-Compare/perl-Number-Compare.changes 2011-05-11
07:07:01.000000000 +0200
+++
/mounts/work_src_done/STABLE/perl-Number-Compare/perl-Number-Compare.changes
2011-09-13 10:23:52.000000000 +0200
@@ -1,0 +2,7 @@
+Tue Sep 13 08:13:22 UTC 2011 - [email protected]
+
+- update to 0.02
+ - apply warning-related fix -
+ https://rt.cpan.org/Public/Bug/Display.html?id=58466
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
Number-Compare-0.01.tar.gz
New:
----
Number-Compare-0.02.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Number-Compare.spec ++++++
--- /var/tmp/diff_new_pack.8q04LC/_old 2011-09-13 12:38:05.000000000 +0200
+++ /var/tmp/diff_new_pack.8q04LC/_new 2011-09-13 12:38:05.000000000 +0200
@@ -18,7 +18,7 @@
Name: perl-Number-Compare
-Version: 0.01
+Version: 0.02
Release: 1
License: GPL+ or Artistic
%define cpan_name Number-Compare
@@ -26,10 +26,10 @@
Url: http://search.cpan.org/dist/Number-Compare/
Group: Development/Libraries/Perl
Source:
http://www.cpan.org/authors/id/R/RC/RCLAMP/%{cpan_name}-%{version}.tar.gz
-BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+BuildRoot: %{_tmppath}/%{name}-%{version}-build
+BuildArch: noarch
%{perl_requires}
%description
@@ -48,11 +48,11 @@
%setup -q -n %{cpan_name}-%{version}
%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
@@ -60,7 +60,7 @@
%perl_gen_filelist
%clean
-%{__rm} -rf %{buildroot}
+rm -rf %{buildroot}
%files -f %{name}.files
%defattr(-,root,root,755)
++++++ Number-Compare-0.01.tar.gz -> Number-Compare-0.02.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/Changes
new/Number-Compare-0.02/Changes
--- old/Number-Compare-0.01/Changes 2002-10-25 17:44:34.000000000 +0200
+++ new/Number-Compare-0.02/Changes 2011-09-12 11:01:21.000000000 +0200
@@ -1,3 +1,7 @@
+0.02 12th September, 2011
+ - apply warning-related fix -
+ https://rt.cpan.org/Public/Bug/Display.html?id=58466
+
0.01 23rd October, 2002
- Refactored the code away from File::Find::Rule
- Initial release
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/Compare.pm
new/Number-Compare-0.02/Compare.pm
--- old/Number-Compare-0.01/Compare.pm 2002-10-25 17:46:27.000000000 +0200
+++ new/Number-Compare-0.02/Compare.pm 1970-01-01 01:00:00.000000000 +0100
@@ -1,100 +0,0 @@
-# $Id: Compare.pm 846 2002-10-25 15:46:01Z richardc $
-package Number::Compare;
-use strict;
-use Carp qw(croak);
-use vars qw/$VERSION/;
-$VERSION = '0.01';
-
-sub new {
- my $referent = shift;
- my $class = ref $referent || $referent;
- my $expr = $class->parse_to_perl( shift );
-
- bless eval "sub { \$_[0] $expr }", $class;
-}
-
-sub parse_to_perl {
- shift;
- my $test = shift;
-
- $test =~ m{^
- ([<>]=?)? # comparison
- (.*?) # value
- ([kmg]i?)? # magnitude
- $}ix
- or croak "don't understand '$test' as a test";
-
- my $comparison = $1 || '==';
- my $target = $2;
- my $magnitude = $3;
- $target *= 1000 if lc $magnitude eq 'k';
- $target *= 1024 if lc $magnitude eq 'ki';
- $target *= 1000000 if lc $magnitude eq 'm';
- $target *= 1024*1024 if lc $magnitude eq 'mi';
- $target *= 1000000000 if lc $magnitude eq 'g';
- $target *= 1024*1024*1024 if lc $magnitude eq 'gi';
-
- return "$comparison $target";
-}
-
-sub test { $_[0]->( $_[1] ) }
-
-1;
-
-__END__
-
-=head1 NAME
-
-Number::Compare - numeric comparisons
-
-=head1 SYNOPSIS
-
- Number::Compare->new(">1Ki")->test(1025); # is 1025 > 1024
-
- my $c = Number::Compare->new(">1M");
- $c->(1_200_000); # slightly terser invocation
-
-=head1 DESCRIPTION
-
-Number::Compare compiles a simple comparison to an anonymous
-subroutine, which you can call with a value to be tested again.
-
-Now this would be very pointless, if Number::Compare didn't understand
-magnitudes.
-
-The target value may use magnitudes of kilobytes (C<k>, C<ki>),
-megabytes (C<m>, C<mi>), or gigabytes (C<g>, C<gi>). Those suffixed
-with an C<i> use the appropriate 2**n version in accordance with the
-IEC standard: http://physics.nist.gov/cuu/Units/binary.html
-
-=head1 METHODS
-
-=head2 ->new( $test )
-
-Returns a new object that compares the specified test.
-
-=head2 ->test( $value )
-
-A longhanded version of $compare->( $value ). Predates blessed
-subroutine reference implementation.
-
-=head2 ->parse_to_perl( $test )
-
-Returns a perl code fragment equivalent to the test.
-
-=head1 AUTHOR
-
-Richard Clamp <[email protected]>
-
-=head1 COPYRIGHT
-
-Copyright (C) 2002 Richard Clamp. All Rights Reserved.
-
-This module is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-http://physics.nist.gov/cuu/Units/binary.html
-
-=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/MANIFEST
new/Number-Compare-0.02/MANIFEST
--- old/Number-Compare-0.01/MANIFEST 2002-10-25 17:44:34.000000000 +0200
+++ new/Number-Compare-0.02/MANIFEST 2011-09-12 11:02:17.000000000 +0200
@@ -1,6 +1,7 @@
Changes
-Compare.pm
MANIFEST
MANIFEST.SKIP
Makefile.PL
t/Number-Compare.t
+lib/Number/Compare.pm
+META.yml Module meta-data (added by MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/META.yml
new/Number-Compare-0.02/META.yml
--- old/Number-Compare-0.01/META.yml 1970-01-01 01:00:00.000000000 +0100
+++ new/Number-Compare-0.02/META.yml 2011-09-12 11:02:17.000000000 +0200
@@ -0,0 +1,21 @@
+--- #YAML:1.0
+name: Number-Compare
+version: 0.02
+abstract: ~
+author: []
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Test::More: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/Makefile.PL
new/Number-Compare-0.02/Makefile.PL
--- old/Number-Compare-0.01/Makefile.PL 2002-10-25 17:44:34.000000000 +0200
+++ new/Number-Compare-0.02/Makefile.PL 2011-09-12 11:01:16.000000000 +0200
@@ -1,13 +1,8 @@
use ExtUtils::MakeMaker;
-
-my $module = 'Compare.pm';
-WriteMakefile(NAME => 'Number::Compare',
- VERSION_FROM => $module,
- PREREQ_PM => { 'Test::More' => 0 });
-
-sub MY::postamble {
- return <<EOF
-README: $module
-\tpod2text $module > README
-EOF
-}
+WriteMakefile(
+ NAME => 'Number::Compare',
+ VERSION_FROM => 'lib/Number/Compare.pm',
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ },
+);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/lib/Number/Compare.pm
new/Number-Compare-0.02/lib/Number/Compare.pm
--- old/Number-Compare-0.01/lib/Number/Compare.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Number-Compare-0.02/lib/Number/Compare.pm 2011-09-12
11:01:21.000000000 +0200
@@ -0,0 +1,99 @@
+package Number::Compare;
+use strict;
+use Carp qw(croak);
+use vars qw/$VERSION/;
+$VERSION = '0.02';
+
+sub new {
+ my $referent = shift;
+ my $class = ref $referent || $referent;
+ my $expr = $class->parse_to_perl( shift );
+
+ bless eval "sub { \$_[0] $expr }", $class;
+}
+
+sub parse_to_perl {
+ shift;
+ my $test = shift;
+
+ $test =~ m{^
+ ([<>]=?)? # comparison
+ (.*?) # value
+ ([kmg]i?)? # magnitude
+ $}ix
+ or croak "don't understand '$test' as a test";
+
+ my $comparison = $1 || '==';
+ my $target = $2;
+ my $magnitude = $3 || '';
+ $target *= 1000 if lc $magnitude eq 'k';
+ $target *= 1024 if lc $magnitude eq 'ki';
+ $target *= 1000000 if lc $magnitude eq 'm';
+ $target *= 1024*1024 if lc $magnitude eq 'mi';
+ $target *= 1000000000 if lc $magnitude eq 'g';
+ $target *= 1024*1024*1024 if lc $magnitude eq 'gi';
+
+ return "$comparison $target";
+}
+
+sub test { $_[0]->( $_[1] ) }
+
+1;
+
+__END__
+
+=head1 NAME
+
+Number::Compare - numeric comparisons
+
+=head1 SYNOPSIS
+
+ Number::Compare->new(">1Ki")->test(1025); # is 1025 > 1024
+
+ my $c = Number::Compare->new(">1M");
+ $c->(1_200_000); # slightly terser invocation
+
+=head1 DESCRIPTION
+
+Number::Compare compiles a simple comparison to an anonymous
+subroutine, which you can call with a value to be tested again.
+
+Now this would be very pointless, if Number::Compare didn't understand
+magnitudes.
+
+The target value may use magnitudes of kilobytes (C<k>, C<ki>),
+megabytes (C<m>, C<mi>), or gigabytes (C<g>, C<gi>). Those suffixed
+with an C<i> use the appropriate 2**n version in accordance with the
+IEC standard: http://physics.nist.gov/cuu/Units/binary.html
+
+=head1 METHODS
+
+=head2 ->new( $test )
+
+Returns a new object that compares the specified test.
+
+=head2 ->test( $value )
+
+A longhanded version of $compare->( $value ). Predates blessed
+subroutine reference implementation.
+
+=head2 ->parse_to_perl( $test )
+
+Returns a perl code fragment equivalent to the test.
+
+=head1 AUTHOR
+
+Richard Clamp <[email protected]>
+
+=head1 COPYRIGHT
+
+Copyright (C) 2002,2011 Richard Clamp. All Rights Reserved.
+
+This module is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+http://physics.nist.gov/cuu/Units/binary.html
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Number-Compare-0.01/t/Number-Compare.t
new/Number-Compare-0.02/t/Number-Compare.t
--- old/Number-Compare-0.01/t/Number-Compare.t 2002-10-25 17:46:27.000000000
+0200
+++ new/Number-Compare-0.02/t/Number-Compare.t 2011-09-12 10:47:26.000000000
+0200
@@ -1,5 +1,5 @@
#!perl -w
-# $Id: Number-Compare.t 846 2002-10-25 15:46:01Z richardc $
+# $Id$
use strict;
use Test::More tests => 24;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
