r60828 - in /trunk/libdata-float-perl: ./ debian/ debian/source/ lib/Data/ t/

angelabad-guest at users.alioth.debian.org angelabad-guest at users.alioth.debian.org
Thu Jul 29 09:22:03 UTC 2010


Author: angelabad-guest
Date: Thu Jul 29 09:21:56 2010
New Revision: 60828

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60828
Log:
New upstream release 0.010

Added:
    trunk/libdata-float-perl/debian/source/
    trunk/libdata-float-perl/debian/source/format
Removed:
    trunk/libdata-float-perl/debian/libdata-float-perl.docs
Modified:
    trunk/libdata-float-perl/.cvsignore
    trunk/libdata-float-perl/Build.PL
    trunk/libdata-float-perl/Changes
    trunk/libdata-float-perl/META.yml
    trunk/libdata-float-perl/Makefile.PL
    trunk/libdata-float-perl/README
    trunk/libdata-float-perl/SIGNATURE
    trunk/libdata-float-perl/debian/changelog
    trunk/libdata-float-perl/debian/control
    trunk/libdata-float-perl/debian/copyright
    trunk/libdata-float-perl/lib/Data/Float.pm
    trunk/libdata-float-perl/t/class.t
    trunk/libdata-float-perl/t/const.t
    trunk/libdata-float-perl/t/copysign.t
    trunk/libdata-float-perl/t/hex.t
    trunk/libdata-float-perl/t/id_cmp.t
    trunk/libdata-float-perl/t/nextafter.t
    trunk/libdata-float-perl/t/parts.t
    trunk/libdata-float-perl/t/pod_cvg.t
    trunk/libdata-float-perl/t/pod_syn.t
    trunk/libdata-float-perl/t/pow2.t

Modified: trunk/libdata-float-perl/.cvsignore
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/.cvsignore?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/.cvsignore (original)
+++ trunk/libdata-float-perl/.cvsignore Thu Jul 29 09:21:56 2010
@@ -1,4 +1,4 @@
 Build Makefile
 _build blib
-META.yml Makefile.PL SIGNATURE
+META.yml MYMETA.yml Makefile.PL SIGNATURE
 Data-Float-*

Modified: trunk/libdata-float-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/Build.PL?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/Build.PL (original)
+++ trunk/libdata-float-perl/Build.PL Thu Jul 29 09:21:56 2010
@@ -1,28 +1,34 @@
+{ use 5.006; }
 use warnings;
 use strict;
-no strict "subs";
 
 use Module::Build;
 
 Module::Build->new(
 	module_name => "Data::Float",
 	license => "perl",
+	configure_requires => {
+		"Module::Build" => 0,
+		"perl" => "5.006",
+		"strict" => 0,
+		"warnings" => 0,
+	},
 	build_requires => {
-		Module::Build => 0,
-		Test::More => 0,
-		perl => "5.006",
-		strict => 0,
-		warnings => 0,
+		"Module::Build" => 0,
+		"Test::More" => 0,
+		"perl" => "5.006",
+		"strict" => 0,
+		"warnings" => 0,
 	},
 	requires => {
-		Carp => 0,
-		Exporter => 0,
-		base => 0,
-		constant => 0,
-		integer => 0,
-		perl => "5.006",
-		strict => 0,
-		warnings => 0,
+		"Carp" => 0,
+		"Exporter" => 0,
+		"constant" => 0,
+		"integer" => 0,
+		"parent" => 0,
+		"perl" => "5.006",
+		"strict" => 0,
+		"warnings" => 0,
 	},
 	dynamic_config => 0,
 	meta_add => { distribution_type => "module" },
@@ -30,4 +36,4 @@
 	sign => 1,
 )->create_build_script;
 
-exit 0;
+1;

Modified: trunk/libdata-float-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/Changes?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/Changes (original)
+++ trunk/libdata-float-perl/Changes Thu Jul 29 09:21:56 2010
@@ -1,3 +1,22 @@
+version 0.010; 2010-07-26
+
+  * use simpler "parent" pragma in place of "base"
+
+  * in documentation, use the term "truth value" instead of the less
+    precise "boolean"
+
+  * check for required Perl version at runtime
+
+  * use full stricture in test suite
+
+  * use full stricture in Build.PL
+
+  * in Build.PL, explicitly declare configure-time requirements
+
+  * remove bogus "exit 0" from Build.PL
+
+  * add MYMETA.yml to .cvsignore
+
 version 0.009; 2008-04-06
 
   * refer to optional constants more carefully in the code, to avoid

Modified: trunk/libdata-float-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/META.yml?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/META.yml (original)
+++ trunk/libdata-float-perl/META.yml Thu Jul 29 09:21:56 2010
@@ -1,34 +1,39 @@
 ---
-name: Data-Float
-version: 0.009
+abstract: 'details of the floating point data type'
 author:
   - 'Andrew Main (Zefram) <zefram at fysh.org>'
-abstract: details of the floating point data type
-license: perl
-resources:
-  license: http://dev.perl.org/licenses/
-requires:
-  Carp: 0
-  Exporter: 0
-  base: 0
-  constant: 0
-  integer: 0
-  perl: 5.006
-  strict: 0
-  warnings: 0
 build_requires:
   Module::Build: 0
   Test::More: 0
   perl: 5.006
   strict: 0
   warnings: 0
+configure_requires:
+  Module::Build: 0
+  perl: 5.006
+  strict: 0
+  warnings: 0
+distribution_type: module
 dynamic_config: 0
+generated_by: 'Module::Build version 0.3607'
+license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: Data-Float
 provides:
   Data::Float:
     file: lib/Data/Float.pm
-    version: 0.009
-generated_by: Module::Build version 0.2808
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
-distribution_type: module
+    version: 0.010
+requires:
+  Carp: 0
+  Exporter: 0
+  constant: 0
+  integer: 0
+  parent: 0
+  perl: 5.006
+  strict: 0
+  warnings: 0
+resources:
+  license: http://dev.perl.org/licenses/
+version: 0.010

Modified: trunk/libdata-float-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/Makefile.PL?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/Makefile.PL (original)
+++ trunk/libdata-float-perl/Makefile.PL Thu Jul 29 09:21:56 2010
@@ -1,31 +1,35 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
-    
+# Note: this file was auto-generated by Module::Build::Compat version 0.3607
+require 5.006;
+
     unless (eval "use Module::Build::Compat 0.02; 1" ) {
       print "This module requires Module::Build to install itself.\n";
-      
+
       require ExtUtils::MakeMaker;
       my $yn = ExtUtils::MakeMaker::prompt
 	('  Install Module::Build now from CPAN?', 'y');
-      
+
       unless ($yn =~ /^y/i) {
 	die " *** Cannot install without Module::Build.  Exiting ...\n";
       }
-      
+
       require Cwd;
       require File::Spec;
       require CPAN;
-      
+
       # Save this 'cause CPAN will chdir all over the place.
       my $cwd = Cwd::cwd();
-      
+
       CPAN::Shell->install('Module::Build::Compat');
       CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
 	or die "Couldn't install Module::Build, giving up.\n";
-      
+
       chdir $cwd or die "Cannot chdir() back to $cwd: $!";
     }
     eval "use Module::Build::Compat 0.02; 1" or die $@;
     
     Module::Build::Compat->run_build_pl(args => \@ARGV);
+    my $build_script = 'Build';
+    $build_script .= '.com' if $^O eq 'VMS';
+    exit(0) unless(-e $build_script); # cpantesters convention
     require Module::Build;
     Module::Build::Compat->write_makefile(build_class => 'Module::Build');

Modified: trunk/libdata-float-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/README?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/README (original)
+++ trunk/libdata-float-perl/README Thu Jul 29 09:21:56 2010
@@ -23,7 +23,8 @@
 
 COPYRIGHT
 
-Copyright (C) 2006, 2007, 2008 Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2006, 2007, 2008, 2010
+Andrew Main (Zefram) <zefram at fysh.org>
 
 LICENSE
 

Modified: trunk/libdata-float-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/SIGNATURE?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/SIGNATURE (original)
+++ trunk/libdata-float-perl/SIGNATURE Thu Jul 29 09:21:56 2010
@@ -1,5 +1,5 @@
 This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
+signed via the Module::Signature module, version 0.64.
 
 To verify the content in this distribution, first make sure you have
 Module::Signature installed, then type:
@@ -14,28 +14,28 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 2589479b52d4b3ee12dc56f9d2e5bbbaba9dcfea .cvsignore
-SHA1 ae59fe1fdfa95409921c9cdcbaa2623f3076ef15 Build.PL
-SHA1 ae2928d43e84f3cf0e84fc8e8cd7cf3c1cbce4e4 Changes
+SHA1 a647ee7a0b367a12ea5f5b76ebb149ce25ba0390 .cvsignore
+SHA1 22c0b8256338e7f077f6311527c006ca9acfc75b Build.PL
+SHA1 6765395ee1e984c27ba75f40e6a165df88a55c16 Changes
 SHA1 a0baf8aa5977fabc6ba24e0004ecfb9d1d4b6849 MANIFEST
-SHA1 936faa1c8bd34c737b4c33047135a71aa68b22f7 META.yml
-SHA1 cd14ada78fb37a0d926edd86eddcdf7f939de582 Makefile.PL
-SHA1 80756a39812970c7fca4da2d32bc5e3d8ad543ba README
-SHA1 63f9fc46d89c8d1e62f0fed91359fd0362c4dbb3 lib/Data/Float.pm
-SHA1 ce2a2e8e6dac572ffd33843c13dcbff4017f9c62 t/class.t
-SHA1 f6d46c7ebefd8032fdf5d8f2faf9a48d540f83dc t/const.t
-SHA1 e487720128f517f751aa91cf1488a50f5f522be0 t/copysign.t
-SHA1 d984b62d9d370cc4620c5fab73c53b0ed5de2ae9 t/hex.t
-SHA1 fcdc3be4e40ebe31efe14a8265f6d8d82792264b t/id_cmp.t
-SHA1 b6d6f699081e003c45e0255a079f1ff95db64b34 t/nextafter.t
-SHA1 27522de85b9db97181e0f8d8dc6596c283817717 t/parts.t
-SHA1 0e141eecf3ca4903ef38d9413b5403a9ddb0392f t/pod_cvg.t
-SHA1 74a957cd8b93f25672ecc6aa578a671d084dd343 t/pod_syn.t
-SHA1 2f15e822481c093f8f7a23b9b40073934b590492 t/pow2.t
+SHA1 27c8fc9c18ece0d13e2d89948c72e33e46cdb822 META.yml
+SHA1 caae608231ffe78390c76451ade51a7cfc87a9f9 Makefile.PL
+SHA1 754fa448a4bc61e5eedd11119b00abaf18caf906 README
+SHA1 838a0af84b5054cd4046145f0893ecfaec9741c9 lib/Data/Float.pm
+SHA1 46a701139af33ceb60bdcd6bdd098bba93c9da89 t/class.t
+SHA1 8ff388995f49bfa234eb7667943930db20d71d5d t/const.t
+SHA1 356d01d2baf86af1890e9acc29129361bf62cbe1 t/copysign.t
+SHA1 e9b6488e8989b4816cc9c44c9e62da415c4ada2c t/hex.t
+SHA1 71efb1ee1aac4f1c252b9f3886148a6adc3e3b32 t/id_cmp.t
+SHA1 c9d4a7d0d6156649ec6a9ac6281a84999e3b4ba7 t/nextafter.t
+SHA1 e00cf1571fee7e4f0bc753b05366e043abf0d4aa t/parts.t
+SHA1 904d9a4f76525e2303e4b0c168c68230f223c8de t/pod_cvg.t
+SHA1 65c75abdef6f01a5d1588a307f2ddfe2333dc961 t/pod_syn.t
+SHA1 8181874d707c8c1d591df349ab200f99e6613446 t/pow2.t
 -----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
+Version: GnuPG v1.4.9 (GNU/Linux)
 
-iD8DBQFH+QqoOV9mt2VyAVERArqDAJ4gA5y6SK/JjfUc/NlVVSTrX2ZIHQCggaTj
-IdUjRlb+xd9WSF9/l463LGg=
-=yRQp
+iEYEARECAAYFAkxN7XoACgkQOV9mt2VyAVFmaACbBZ/ectD8JVhCG+BxiDyNzmH/
+jG4AoIet52EsEvFx5LP3lLwVIV3v0s1O
+=4G5m
 -----END PGP SIGNATURE-----

Modified: trunk/libdata-float-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/changelog?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/debian/changelog (original)
+++ trunk/libdata-float-perl/debian/changelog Thu Jul 29 09:21:56 2010
@@ -1,3 +1,19 @@
+libdata-float-perl (0.010-1) unstable; urgency=low
+
+  * New upstream release
+  * Add myself to uploaders
+  * debian/control: 
+    - Add libtest-pod-coverage-perl, libtest-pod-perl and 
+      perl (>= 5.10.1) | libparent-perl to B-D
+    - Add perl (>= 5.10.1) | libparent-perl to Depends
+  * Standards-Version 3.9.1
+  * debian/libdata-float-perl.docs: Remove file, it has only
+    install instructions
+  * Update copyright file
+  * Switch to dpkg-source format 3.0 (quilt)
+
+ -- Angel Abad <angelabad at gmail.com>  Thu, 29 Jul 2010 11:16:23 +0200
+
 libdata-float-perl (0.009-2) unstable; urgency=low
 
   * Take over for the Debian Perl Group

Modified: trunk/libdata-float-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/control?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/debian/control (original)
+++ trunk/libdata-float-perl/debian/control Thu Jul 29 09:21:56 2010
@@ -2,17 +2,19 @@
 Section: perl
 Priority: optional
 Build-Depends: debhelper (>= 7.0.17)
-Build-Depends-Indep: perl (>= 5.8.8-7), perl (>= 5.10.0) | libmodule-build-perl
+Build-Depends-Indep: perl, perl (>= 5.10.0) | libmodule-build-perl,
+ perl (>= 5.10.1) | libparent-perl, libtest-pod-coverage-perl,
+ libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Ivan Kohler <ivan-debian at 420.am>
-Standards-Version: 3.8.4
+Uploaders: Ivan Kohler <ivan-debian at 420.am>, Angel Abad <angelabad at gmail.com>
+Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/Data-Float/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdata-float-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdata-float-perl/
 
 Package: libdata-float-perl
 Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}
+Depends: ${misc:Depends}, ${perl:Depends}, perl (>= 5.10.1) | libparent-perl
 Description: Perl module encapsulating the floating point data type
  This module is about the native floating point numerical data type.
  A floating point number is one of the types of datum that can appear

Modified: trunk/libdata-float-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/copyright?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/debian/copyright (original)
+++ trunk/libdata-float-perl/debian/copyright Thu Jul 29 09:21:56 2010
@@ -1,28 +1,29 @@
-Format-Specification:
-    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Andrew Main (Zefram) <zefram at fysh.org>
-Upstream-Source: http://search.cpan.org/dist/Data-Float/
-Upstream-Name: Data-Float
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Andrew Main (Zefram) <zefram at fysh.org>
+Source: http://search.cpan.org/dist/Data-Float/
+Name: Data-Float
 
 Files: *
-Copyright: Andrew Main (Zefram) <zefram at fysh.org>
-License-Alias: Perl
-License: Artistic | GPL-1+
+Copyright: 2006-2008, 2010, Andrew Main (Zefram) <zefram at fysh.org>
+License: Artistic or GPL-1+
 
 Files: debian/*
-Copyright: 2009, Ivan Kohler <ivan-debian at 420.am>
-License: Artistic | GPL-1+
+Copyright: 2007-2010, Ivan Kohler <ivan-debian at 420.am>
+ 2010, Angel Abad <angelabad at gmail.com>
+License: Artistic or GPL-1+
 
 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 GNU/Linux systems, the complete text of the Artistic License
-    can be found in `/usr/share/common-licenses/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 GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'.
 
 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 GNU/Linux systems, the complete text of the GNU General
-    Public License can be found in `/usr/share/common-licenses/GPL'
+ 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 GNU/Linux systems, the complete text of version 1 of the
+ General Public License can be found in `/usr/share/common-licenses/GPL-1'.

Added: trunk/libdata-float-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/source/format?rev=60828&op=file
==============================================================================
--- trunk/libdata-float-perl/debian/source/format (added)
+++ trunk/libdata-float-perl/debian/source/format Thu Jul 29 09:21:56 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libdata-float-perl/lib/Data/Float.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/lib/Data/Float.pm?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/lib/Data/Float.pm (original)
+++ trunk/libdata-float-perl/lib/Data/Float.pm Thu Jul 29 09:21:56 2010
@@ -172,14 +172,15 @@
 
 package Data::Float;
 
+{ use 5.006; }
 use warnings;
 use strict;
 
 use Carp qw(croak);
 
-our $VERSION = "0.009";
-
-use base "Exporter";
+our $VERSION = "0.010";
+
+use parent "Exporter";
 our @EXPORT_OK = qw(
 	float_class float_is_normal float_is_subnormal float_is_nzfinite
 	float_is_zero float_is_finite float_is_infinite float_is_nan
@@ -198,22 +199,22 @@
 
 =item have_signed_zero
 
-Boolean indicating whether floating point zeroes carry a sign.  If yes,
+Truth value indicating whether floating point zeroes carry a sign.  If yes,
 then there are two floating point zero values: +0.0 and -0.0.  (Perl
 scalars can nevertheless also hold an integer zero, which is unsigned.)
 If no, then there is only one zero value, which is unsigned.
 
 =item have_subnormal
 
-Boolean indicating whether there are subnormal floating point values.
+Truth value indicating whether there are subnormal floating point values.
 
 =item have_infinite
 
-Boolean indicating whether there are infinite floating point values.
+Truth value indicating whether there are infinite floating point values.
 
 =item have_nan
 
-Boolean indicating whether there are NaN floating point values.
+Truth value indicating whether there are NaN floating point values.
 
 It is difficult to reliably generate a NaN in Perl, so in some unlikely
 circumstances it is possible that there might be NaNs that this module
@@ -590,7 +591,7 @@
 
 =head2 Classification
 
-Each "float_is_" function returns a simple boolean result.
+Each "float_is_" function returns a simple truth value result.
 
 =over
 
@@ -1191,7 +1192,7 @@
 =item totalorder(A, B)
 
 This is a comparison function supplying a total ordering of floating point
-values.  A and B must both be floating point values.  Returns a boolean
+values.  A and B must both be floating point values.  Returns a truth value
 indicating whether A is to be sorted before-or-the-same-as B.  That is,
 it is a <= predicate on the total ordering.  The ordering is the same as
 that provided by C<float_id_cmp>: NaNs come first, followed by negative
@@ -1383,7 +1384,8 @@
 
 =head1 COPYRIGHT
 
-Copyright (C) 2006, 2007, 2008 Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2006, 2007, 2008, 2010
+Andrew Main (Zefram) <zefram at fysh.org>
 
 =head1 LICENSE
 

Modified: trunk/libdata-float-perl/t/class.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/class.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/class.t (original)
+++ trunk/libdata-float-perl/t/class.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 1 + 8*11 + 3*8;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -7,6 +10,7 @@
 	float_is_infinite float_is_nan
 ); }
 
+no strict "refs";
 my %values = (
 	NORMAL => [
 		-1000.0,
@@ -60,3 +64,5 @@
 		is zpat($tz), $pat;
 	}
 }
+
+1;

Modified: trunk/libdata-float-perl/t/const.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/const.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/const.t (original)
+++ trunk/libdata-float-perl/t/const.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 29;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -47,6 +50,7 @@
 ok +(min_finite * 0.5) * 2.0 != min_finite;
 
 if(have_signed_zero) {
+	no strict "refs";
 	is sprintf("%+.f%+.f%+.f", 0.0, -0.0, - -0.0), "+0-0+0";
 	my $pos_zero = &{"Data::Float::pos_zero"};
 	my $neg_zero = &{"Data::Float::neg_zero"};
@@ -67,6 +71,7 @@
 }
 
 if(have_infinite) {
+	no strict "refs";
 	ok &{"Data::Float::pos_infinity"} > max_finite;
 	ok &{"Data::Float::neg_infinity"} < -max_finite();
 	ok max_number == &{"Data::Float::pos_infinity"};
@@ -78,6 +83,9 @@
 
 SKIP: {
 	skip "no NaNs", 1 unless have_nan;
+	no strict "refs";
 	my $nan = &{"Data::Float::nan"};
 	ok $nan != $nan;
 }
+
+1;

Modified: trunk/libdata-float-perl/t/copysign.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/copysign.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/copysign.t (original)
+++ trunk/libdata-float-perl/t/copysign.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 46;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -41,6 +44,7 @@
 
 SKIP: {
 	skip "infinities not available", 8 unless have_infinite;
+	no strict "refs";
 	my $pinf = &{"Data::Float::pos_infinity"};
 	my $ninf = &{"Data::Float::neg_infinity"};
 	ok copysign($pinf, +5) == $pinf;
@@ -55,8 +59,11 @@
 
 SKIP: {
 	skip "NaN not available", 3 unless have_nan;
+	no strict "refs";
 	my $nan = &{"Data::Float::nan"};
 	ok float_is_nan(copysign($nan, +5));
 	ok float_is_nan(copysign($nan, $nan));
 	ok abs(copysign(+1.2, $nan)) == 1.2;
 }
+
+1;

Modified: trunk/libdata-float-perl/t/hex.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/hex.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/hex.t (original)
+++ trunk/libdata-float-perl/t/hex.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 102;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -15,6 +18,7 @@
 
 SKIP: {
 	skip "no infinities", 22 unless have_infinite;
+	no strict "refs";
 	my $pinf = &{"Data::Float::pos_infinity"};
 	my $ninf = &{"Data::Float::neg_infinity"};
 	is float_hex($pinf), "+inf";
@@ -43,6 +47,7 @@
 
 SKIP: {
 	skip "no NaN", 20 unless have_nan;
+	no strict "refs";
 	is float_hex(&{"Data::Float::nan"}), "nan";
 	is float_hex(&{"Data::Float::nan"}, \%str_opt), "(NAN)";
 	ok float_is_nan(hex_float("nan"));
@@ -142,3 +147,5 @@
 like float_hex(1, { exp_digits_range_mod => "ATLEAST" }),
 	qr/\A\+0x1\.0+p\+00+\z/;
 like float_hex(1, { exp_digits => 5 }), qr/\A\+0x1\.0+p\+00000\z/;
+
+1;

Modified: trunk/libdata-float-perl/t/id_cmp.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/id_cmp.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/id_cmp.t (original)
+++ trunk/libdata-float-perl/t/id_cmp.t Thu Jul 29 09:21:56 2010
@@ -1,9 +1,13 @@
+use warnings;
+use strict;
+
 use Test::More tests => 1 + 2*9*9 + 8*9;
 
 BEGIN { use_ok "Data::Float", qw(
 	have_infinite have_signed_zero have_nan float_id_cmp totalorder
 ); }
 
+no strict "refs";
 my @values = (
 	sub { have_nan ? &{"Data::Float::nan"} : undef },
 	sub { have_infinite ? &{"Data::Float::neg_infinity"} : undef },
@@ -41,3 +45,5 @@
 		}
 	}
 }
+
+1;

Modified: trunk/libdata-float-perl/t/nextafter.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/nextafter.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/nextafter.t (original)
+++ trunk/libdata-float-perl/t/nextafter.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 65;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -69,6 +72,7 @@
 
 SKIP: {
 	skip "infinities not available", 8 unless have_infinite;
+	no strict "refs";
 	my $pinf = &{"Data::Float::pos_infinity"};
 	my $ninf = &{"Data::Float::neg_infinity"};
 	ok nextup(   +max_finite())        == $pinf;
@@ -83,6 +87,7 @@
 
 SKIP: {
 	skip "NaN not available", 5 unless have_nan;
+	no strict "refs";
 	my $nan = &{"Data::Float::nan"};
 	ok float_is_nan(nextup($nan));
 	ok float_is_nan(nextdown($nan));
@@ -90,3 +95,5 @@
 	ok float_is_nan(nextafter(+1.2, $nan));
 	ok float_is_nan(nextafter($nan, $nan));
 }
+
+1;

Modified: trunk/libdata-float-perl/t/parts.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/parts.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/parts.t (original)
+++ trunk/libdata-float-perl/t/parts.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 1 + 4*3 + 2*2 + 5*17;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -24,6 +27,7 @@
 }
 SKIP: {
 	skip "infinities not available", 4 unless have_infinite;
+	no strict "refs";
 	test_sign(&{"Data::Float::pos_infinity"}, "+", 0);
 	test_sign(&{"Data::Float::neg_infinity"}, "-", 0);
 }
@@ -59,7 +63,9 @@
 
 SKIP: {
 	skip "subnormals not available", 5 unless have_subnormal;
+	no strict "refs";
 	test_parts(+3.0*&{"Data::Float::min_finite"},
 		"+", min_normal_exp, mult_pow2(3.0, -significand_bits()));
 }
 
+1;

Modified: trunk/libdata-float-perl/t/pod_cvg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/pod_cvg.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/pod_cvg.t (original)
+++ trunk/libdata-float-perl/t/pod_cvg.t Thu Jul 29 09:21:56 2010
@@ -1,4 +1,9 @@
+use warnings;
+use strict;
+
 use Test::More;
 plan skip_all => "Test::Pod::Coverage not available"
 	unless eval "use Test::Pod::Coverage; 1";
 Test::Pod::Coverage::all_pod_coverage_ok();
+
+1;

Modified: trunk/libdata-float-perl/t/pod_syn.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/pod_syn.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/pod_syn.t (original)
+++ trunk/libdata-float-perl/t/pod_syn.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,8 @@
+use warnings;
+use strict;
+
 use Test::More;
 plan skip_all => "Test::Pod not available" unless eval "use Test::Pod 1.00; 1";
 Test::Pod::all_pod_files_ok();
+
+1;

Modified: trunk/libdata-float-perl/t/pow2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/pow2.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/pow2.t (original)
+++ trunk/libdata-float-perl/t/pow2.t Thu Jul 29 09:21:56 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
 use Test::More tests => 25;
 
 BEGIN { use_ok "Data::Float", qw(
@@ -30,3 +33,5 @@
 ok mult_pow2(1.0009765625, 10) == 1025.0;
 ok mult_pow2(0.5, max_finite_exp+1) == pow2(max_finite_exp);
 ok mult_pow2(2.0, min_finite_exp-1) == pow2(min_finite_exp);
+
+1;




More information about the Pkg-perl-cvs-commits mailing list