This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libsharyanto-utils-perl.
commit 5143de816d8ec7d791d8322f0ea157235d566161
Author: gregor herrmann <gre...@debian.org>
Date: Fri Jun 26 11:03:24 2015 +0200
Add patch to drop SHARYANTO::Scalar::Util.
Unused, fails with Perl 5.22, removed in upstream version 0.71.
Closes: #789853
---
debian/patches/drop-SHARYANTO-Scalar-Util.patch | 196 ++++++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 197 insertions(+)
diff --git a/debian/patches/drop-SHARYANTO-Scalar-Util.patch
b/debian/patches/drop-SHARYANTO-Scalar-Util.patch
new file mode 100644
index 0000000..73fb6e0
--- /dev/null
+++ b/debian/patches/drop-SHARYANTO-Scalar-Util.patch
@@ -0,0 +1,196 @@
+Description: drop SHARYANTO::Scalar::Util
+ fails with perl 5.22, removed upstream in 0.71, not used
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/789853
+Bug: http://rt.cpan.org/Public/Bug/Display.html?id=94805
+Forwarded: not-needed
+Author: gregor herrmann <gre...@debian.org>
+Last-Update: 2015-06-26
+Applied-Upstream: in 0.71
+
+--- a/lib/SHARYANTO/Scalar/Util.pm
++++ b/lib/SHARYANTO/Scalar/Util.pm
+@@ -1,126 +0,0 @@
+-package SHARYANTO::Scalar::Util;
+-
+-use 5.010;
+-use strict;
+-use warnings;
+-
+-use Scalar::Util qw(looks_like_number);
+-
+-use Exporter qw(import);
+-our @EXPORT_OK = qw(
+- looks_like_int
+- looks_like_float
+- looks_like_real
+- );
+-
+-our $VERSION = '0.67'; # VERSION
+-
+-sub looks_like_int {
+- my $l = looks_like_number($_[0]);
+- $l==1 || $l==2 || $l==9 || $l==10 || $l==4352;
+-}
+-
+-sub looks_like_float {
+- my $l = looks_like_number($_[0]);
+- $l==4 || $l==5 || $l==6 || $l==12 || $l==13 || $l==14 ||
+- $l==20 || $l==28 || $l==36 || $l==44 || $l==8704;
+-}
+-
+-sub looks_like_real {
+- my $l = looks_like_number($_[0]);
+- $l==1 || $l==2 || $l==9 || $l==10 || $l==4352 ||
+- $l==4 || $l==5 || $l==6 || $l==12 || $l==13 || $l==14 ||
+- $l==20 || $l==28 || $l==36 || $l==44 || $l==8704;
+-}
+-
+-1;
+-# ABSTRACT: Scalar utilities
+-
+-__END__
+-
+-=pod
+-
+-=encoding UTF-8
+-
+-=head1 NAME
+-
+-SHARYANTO::Scalar::Util - Scalar utilities
+-
+-=head1 VERSION
+-
+-version 0.67
+-
+-=head1 SYNOPSIS
+-
+- use SHARYANTO::Scalar::Util qw(
+- looks_like_int
+- looks_like_float
+- looks_like_real
+- );
+-
+- say looks_like_int(10); # 1, isint() also returns 1
+- say looks_like_int("1".("0" x 100)); # 1, isint() returns 0 here
+- say looks_like_int("123a"); # 0
+-
+- say looks_like_float(1.1); # 1
+- say looks_like_float("1e2"); # 1
+- say looks_like_float("-Inf"); # 1
+- say looks_like_float(""); # 0
+-
+- # either looks like int, or float
+- say looks_like_real(1); # 1
+- say looks_like_real(1.1); # 1
+-
+-=head1 FUNCTIONS
+-
+-=head2 looks_like_int($arg) => BOOL
+-
+-Uses L<Scalar::Util>'s C<looks_like_number()> to check whether C<$arg> looks
+-like an integer.
+-
+-=head2 looks_like_float($arg) => BOOL
+-
+-Uses L<Scalar::Util>'s C<looks_like_number()> to check whether C<$arg> looks
+-like a floating point number.
+-
+-=head2 looks_like_real($arg) => BOOL
+-
+-Uses L<Scalar::Util>'s C<looks_like_number()> to check whether C<$arg> looks
+-like a real number (either an integer or a floating point).
+-
+-=head1 SEE ALSO
+-
+-L<SHARYANTO>
+-
+-L<Scalar::Util>
+-
+-L<Scalar::Util::Numeric>
+-
+-=head1 HOMEPAGE
+-
+-Please visit the project's homepage at
L<https://metacpan.org/release/SHARYANTO-Utils>.
+-
+-=head1 SOURCE
+-
+-Source repository is at L<https://github.com/sharyanto/perl-SHARYANTO-Utils>.
+-
+-=head1 BUGS
+-
+-Please report any bugs or feature requests on the bugtracker website
L<https://rt.cpan.org/Public/Dist/Display.html?Name=SHARYANTO-Utils>
+-
+-When submitting a bug or request, please include a test-file or a
+-patch to an existing test-file that illustrates the bug or desired
+-feature.
+-
+-=head1 AUTHOR
+-
+-Steven Haryanto <stevenharya...@gmail.com>
+-
+-=head1 COPYRIGHT AND LICENSE
+-
+-This software is copyright (c) 2014 by Steven Haryanto.
+-
+-This is free software; you can redistribute it and/or modify it under
+-the same terms as the Perl 5 programming language system itself.
+-
+-=cut
+--- a/t/scalar_util.t
++++ b/t/scalar_util.t
+@@ -1,35 +0,0 @@
+-#!perl -T
+-
+-use 5.010;
+-use strict;
+-use warnings;
+-
+-use Test::More 0.96;
+-
+-use SHARYANTO::Scalar::Util qw(looks_like_int looks_like_float
looks_like_real);
+-
+-my @ints = (0, 1, -1, "1", "-1",
+- "1111111111111111111111111111111111111111",
+- "-1111111111111111111111111111111111111111");
+-my @floats = (1.1, -1.1, 1.11e1, -1.11e1, "1.1", "-1.1", "1e10", "-1e10",
+- "1e-1000", "-1e-1000",
+- "11111111111111111111111111111111111111.1",
+- "-11111111111111111111111111111111111111.1",
+- "Inf", "-Inf", "Infinity", "-Infinity",
+- "NaN", "-nan",);
+-my @nonnums = ("", " ", "123a", "1e", "-", "+", "abc");
+-
+-ok( looks_like_int($_), "looks_like_int($_)=1") for @ints;
+-ok(!looks_like_int($_), "looks_like_int($_)=0") for @floats;
+-ok(!looks_like_int($_), "looks_like_int($_)=0") for @nonnums;
+-
+-ok(!looks_like_float($_), "looks_like_float($_)=0") for @ints;
+-ok( looks_like_float($_), "looks_like_float($_)=1") for @floats;
+-ok(!looks_like_float($_), "looks_like_float($_)=0") for @nonnums;
+-
+-ok( looks_like_real($_), "looks_like_real($_)=1") for @ints;
+-ok( looks_like_real($_), "looks_like_real($_)=1") for @floats;
+-ok(!looks_like_real($_), "looks_like_real($_)=0") for @nonnums;
+-
+-DONE_TESTING:
+-done_testing();
+--- a/t/00-compile.t
++++ b/t/00-compile.t
+@@ -3,7 +3,7 @@
+
+ # this test was generated with Dist::Zilla::Plugin::Test::Compile 2.037
+
+-use Test::More tests => 16 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
++use Test::More tests => 15 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+
+
+
+@@ -19,7 +19,6 @@
+ 'SHARYANTO/ModuleOrPrefix/Path.pm',
+ 'SHARYANTO/Proc/ChildError.pm',
+ 'SHARYANTO/Proc/Daemon/Prefork.pm',
+- 'SHARYANTO/Scalar/Util.pm',
+ 'SHARYANTO/Template/Util.pm',
+ 'SHARYANTO/Text/Prompt.pm',
+ 'SHARYANTO/Utils.pm',
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..077a284
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+drop-SHARYANTO-Scalar-Util.patch
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libsharyanto-utils-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
