debian/0000755000000000000000000000000012027012737007167 5ustar debian/changelog0000644000000000000000000001003612027012722011033 0ustar libmath-random-mt-perl (1.15-2+rpi1) wheezy-staging; urgency=low * add build-depends on gcc-4.7 -- root Fri, 21 Sep 2012 07:16:56 +0000 libmath-random-mt-perl (1.15-2) unstable; urgency=low * Add 0001-Fix-handling-of-rand-and-irand-arguments.patch patch. Fix handling of rand() and irand() arguments. Fixed the issue introduced in version 1.15 where rand() took no notice of argument and irand() did. (Closes: #684085) -- Salvatore Bonaccorso Tue, 07 Aug 2012 07:57:49 +0200 libmath-random-mt-perl (1.15-1) unstable; urgency=low * Imported Upstream version 1.15 * Drop fix-FTBFS-on-hurd.patch patch. Patch was applied upstream. -- Salvatore Bonaccorso Mon, 04 Jun 2012 07:03:19 +0200 libmath-random-mt-perl (1.14-1) unstable; urgency=low * Imported Upstream version 1.14 * Refresh fix-FTBFS-on-hurd.patch patch * Bump Standards-Version to 3.9.3 * Update copyright file information. Update format to copyright-format 1.0 as released with Debian policy 3.9.3. Update copyright years for debian/* packaging. -- Salvatore Bonaccorso Sun, 27 May 2012 10:58:42 +0200 libmath-random-mt-perl (1.13-2) unstable; urgency=low * Add fix-FTBFS-on-hurd.patch patch. Fix FTBFS on hurd-i386. Thanks to Pino Toscano for the patch (Closes: #656499) -- Salvatore Bonaccorso Thu, 19 Jan 2012 19:33:21 +0100 libmath-random-mt-perl (1.13-1) unstable; urgency=low * Team upload [ gregor herrmann ] * Remove patch, applied upstream. [ Jonathan Yu ] * New upstream release 1.12 [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. [ Salvatore Bonaccorso ] * New upstream release 1.11 * Update my email address. * debian/copyright: Replace DEP5 Format-Specification URL from svn.debian.org to anonscm.debian.org URL. [ Alessandro Ghedini ] * New upstream release * Bump debhelper compat level to 8 * Bump Standards-Version to 3.9.2 (no changes needed) * Update license stanzas in debian/copyright * Update ppport.h copyright years [ gregor herrmann ] * Switch to debhelper compatibility level 9 to pass CFLAGS to Makefile.PL/Build.PL. -- Alessandro Ghedini Thu, 19 Jan 2012 10:15:39 +0100 libmath-random-mt-perl (1.10-2) unstable; urgency=low [ Ryan Niebur ] * Update jawnsy's email address [ Salvatore Bonaccorso ] * debian/control: Changed: Replace versioned (build-)dependency on perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as permitted by Debian Policy 3.8.3). * add a patch fixing tests for double numbers evaluation. (Closes: #578552) -- FTBFS with perl 5.12.0-1: long doubles * Convert to '3.0 (quilt)' package source format. * Bump Standards-Version to 3.8.4. * Refresh debian/copyright to follow revision 135 of format- specification for machine readable copyright file in DEP5 and update copyright years for debian/* packaging. -- Salvatore Bonaccorso Sun, 02 May 2010 21:06:02 +0200 libmath-random-mt-perl (1.10-1) unstable; urgency=low [ Nathan Handler ] * debian/watch: Update to ignore development releases. [ Salvatore Bonaccorso ] * New upstream release - Adds FTBFS on kfreebsd patch proposed by Cyril Brulebois (Closes: #539949). * debian/control: - Bump Standards-Version to 3.8.2 (no changes). - Add myself to uploaders * debian/rules: use minimized rules file. * debian/copyright: Update copyright for debian/* packaging. * debian/watch: remove comments from file [ Jonathan Yu ] * New upstream release + Apply kFreeBSD patches upstream (RT#48423) + Fixes compilation with MSVC++ 7.0 (RT#48483) * Bump dependency to perl (>= 5.6.0-16) per Perl Policy -- Jonathan Yu Thu, 06 Aug 2009 15:24:47 -0400 libmath-random-mt-perl (1.07-1) unstable; urgency=low * Initial Release. (Closes: #525332) -- Jonathan Yu Sun, 3 May 2009 00:17:42 -0400 debian/watch0000644000000000000000000000017112010127401010202 0ustar version=3 http://search.cpan.org/dist/Math-Random-MT/ .*/Math-Random-MT-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ debian/rules0000755000000000000000000000003612010127401010231 0ustar #!/usr/bin/make -f %: dh $@ debian/patches/0000755000000000000000000000000012010127401010601 5ustar debian/patches/0001-Fix-handling-of-rand-and-irand-arguments.patch0000644000000000000000000000433112010127401021673 0ustar 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 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); debian/patches/series0000644000000000000000000000006412010127401012016 0ustar 0001-Fix-handling-of-rand-and-irand-arguments.patch debian/copyright0000644000000000000000000000617112010127401011112 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: Math-Random-MT Upstream-Contact: Abhijit Menon-Sen Source: http://search.cpan.org/dist/Math-Random-MT/ Files: * Copyright: 2001, Abhijit Menon-Sen 1997-2002, Makoto Matsumoto 1997-2002, Takuji Nishimura License: BSD-3 Files: ppport.h Copyright: 2004-2010, Marcus Holland-Moritz 2001, Paul Marquess (Version 2.x) 1999, Kenneth Albanowski (Version 1.x) License: Artistic or GPL-1+ Files: _mt.c mt.h Copyright: 1997-2002, Makoto Matsumoto and Takuji Nishimura License: BSD-3 Comment: There is no license text in the included files, however, the M. Matsumoto has a copy of the code released under the new BSD License. See: http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c Files: debian/* Copyright: 2009, Jonathan Yu 2009-2012, Salvatore Bonaccorso License: Artistic or GPL-1+ or BSD-3 License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: BSD-3 Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: . 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. . 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. . 3. The names of its contributors may not be used to endorse or promote products derived from this software without specific prior written permission. . THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/compat0000644000000000000000000000000212010127401010350 0ustar 9 debian/source/0000755000000000000000000000000012010127401010452 5ustar debian/source/format0000644000000000000000000000001412010127401011660 0ustar 3.0 (quilt) debian/control0000644000000000000000000000247012027012141010562 0ustar Source: libmath-random-mt-perl Section: perl Priority: optional Build-Depends: debhelper (>= 9), perl, gcc-4.7 Maintainer: Debian Perl Group Uploaders: Salvatore Bonaccorso , Jonathan Yu Standards-Version: 3.9.3 Homepage: http://search.cpan.org/dist/Math-Random-MT/ Vcs-Git: git://git.debian.org/pkg-perl/packages/libmath-random-mt-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libmath-random-mt-perl.git Package: libmath-random-mt-perl Architecture: any Depends: ${misc:Depends}, ${perl:Depends}, ${shlibs:Depends} Description: Perl implementation of the Mersenne Twister algorithm Math::Random::MT provides an implementation of the Mersenne Twister pseudorandom number generator algorithm developed by Makoto Matsumoto and Takuji Nishimura. . It is related to but a different algorithm than a previous work by the same authors - the TT800 algorithm, which keeps less state data (MT uses 624 numbers compared to TT800's 25). Consequently, the period is much larger - 2^19937-1 compared to TT800's 2^800-1. For comparison, ISAAC's period is 2^8295 values on average. . For more information, peruse M. Matsumoto and T. Nishimura's paper: .