[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