[SCM] Debian packaging of libmath-random-mt-perl branch, master, updated. debian/1.15-2-5-g537501f
Harlan Lieberman-Berg
H.LiebermanBerg at gmail.com
Fri Oct 19 19:34:49 UTC 2012
The following commit has been merged in the master branch:
commit b03a7277463cedc6359d60294276c1e967184a61
Author: Harlan Lieberman-Berg <H.LiebermanBerg at gmail.com>
Date: Fri Oct 19 15:37:56 2012 -0400
Remove patch applied upstream.
diff --git a/debian/patches/0001-Fix-handling-of-rand-and-irand-arguments.patch b/debian/patches/0001-Fix-handling-of-rand-and-irand-arguments.patch
deleted file mode 100644
index 573ac0d..0000000
--- a/debian/patches/0001-Fix-handling-of-rand-and-irand-arguments.patch
+++ /dev/null
@@ -1,86 +0,0 @@
-Description: Fix handling of rand() and irand() arguments
- Fixed issue introduced in version 1.15 where rand() took no notice of
- argument and irand() did.
-Origin: vendor
-Bug: https://rt.cpan.org/Public/Bug/Display.html?id=78200
-Bug-Debian: http://bugs.debian.org/684085
-Forwarded: not-needed
-Author: Salvatore Bonaccorso <carnil at debian.org>
-Last-Update: 2012-08-06
-
---- a/MT.pm
-+++ b/MT.pm
-@@ -41,26 +41,27 @@
- my ($self, $N) = @_;
-
- unless (ref $self) {
-+ $N = $self;
- Math::Random::MT::srand() unless defined $gen;
- $self = $gen;
- }
-
-- return $self->genrand();
-+ return ($N || 1) * $self->genrand();
- }
-
- sub irand
- {
-- my ($self, $N) = @_;
-+ my ($self) = @_;
-
- unless (ref $self) {
-- $N = $self;
- Math::Random::MT::srand() unless defined $gen;
- $self = $gen;
- }
-
-- return ($N || 1) * $self->genirand();
-+ return $self->genirand();
- }
-
-+
- # Generate a random seed using the built-in PRNG.
-
- sub _rand_seed {
---- a/t/1.t
-+++ b/t/1.t
-@@ -3,7 +3,7 @@
- use Test;
- use vars qw($loaded);
-
--BEGIN { plan tests => 6 }
-+BEGIN { plan tests => 10 }
- END { print "not ok 1\n" unless $loaded }
-
- # Test that the OO interface works
-@@ -15,3 +15,9 @@
- ok(abs($gen->rand() - 0.135477004107088) < 1e-14);
- ok($gen->irand() == 3890346734);
- ok($gen->irand() == 3586334585);
-+
-+ok(abs($gen->rand(10) - 1.269868118688464) < 1e-14); # rand() takes a multiplier as argument
-+ok(abs($gen->rand(10) - 9.688677710946649) < 1e-14);
-+
-+ok($gen->irand(123) == 3922919429); # irand() takes no argument; given argument does nothing
-+ok($gen->irand(123) == 949333985);
---- a/t/2.t
-+++ b/t/2.t
-@@ -3,7 +3,7 @@
- use Test;
- use vars qw($loaded);
-
--BEGIN { plan tests => 5 }
-+BEGIN { plan tests => 9 }
- END { print "not ok 1\n" unless $loaded }
-
- # Check that the results are the same with the function-call interface
-@@ -16,3 +16,9 @@
- ok(abs(rand() - 0.135477004107088) < 1e-14);
- ok(irand() == 3890346734);
- ok(irand() == 3586334585);
-+
-+ok(abs(rand(10) - 1.269868118688464) < 1e-14); # rand() takes a multiplier as argument
-+ok(abs(rand(10) - 9.688677710946649) < 1e-14);
-+
-+ok(irand(123) == 3922919429); # irand() takes no argument; given argument does nothing
-+ok(irand(123) == 949333985);
diff --git a/debian/patches/series b/debian/patches/series
deleted file mode 100644
index 251cc78..0000000
--- a/debian/patches/series
+++ /dev/null
@@ -1 +0,0 @@
-0001-Fix-handling-of-rand-and-irand-arguments.patch
--
Debian packaging of libmath-random-mt-perl
More information about the Pkg-perl-cvs-commits
mailing list