r61085 - in /branches/upstream/libdata-integer-perl/current: .cvsignore Build.PL Changes META.yml Makefile.PL README SIGNATURE lib/Data/Integer.pm t/arith.t t/bitwise.t t/canon.t t/const.t t/fmt.t t/hex.t t/marith.t t/pod_cvg.t t/pod_syn.t t/shift.t
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Mon Aug 2 10:02:35 UTC 2010
Author: angelabad-guest
Date: Mon Aug 2 10:01:42 2010
New Revision: 61085
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61085
Log:
[svn-upgrade] new version libdata-integer-perl (0.004)
Modified:
branches/upstream/libdata-integer-perl/current/.cvsignore
branches/upstream/libdata-integer-perl/current/Build.PL
branches/upstream/libdata-integer-perl/current/Changes
branches/upstream/libdata-integer-perl/current/META.yml
branches/upstream/libdata-integer-perl/current/Makefile.PL
branches/upstream/libdata-integer-perl/current/README
branches/upstream/libdata-integer-perl/current/SIGNATURE
branches/upstream/libdata-integer-perl/current/lib/Data/Integer.pm
branches/upstream/libdata-integer-perl/current/t/arith.t
branches/upstream/libdata-integer-perl/current/t/bitwise.t
branches/upstream/libdata-integer-perl/current/t/canon.t
branches/upstream/libdata-integer-perl/current/t/const.t
branches/upstream/libdata-integer-perl/current/t/fmt.t
branches/upstream/libdata-integer-perl/current/t/hex.t
branches/upstream/libdata-integer-perl/current/t/marith.t
branches/upstream/libdata-integer-perl/current/t/pod_cvg.t
branches/upstream/libdata-integer-perl/current/t/pod_syn.t
branches/upstream/libdata-integer-perl/current/t/shift.t
Modified: branches/upstream/libdata-integer-perl/current/.cvsignore
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/.cvsignore?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/.cvsignore (original)
+++ branches/upstream/libdata-integer-perl/current/.cvsignore Mon Aug 2 10:01:42 2010
@@ -1,4 +1,4 @@
Build Makefile
_build blib
-META.yml Makefile.PL SIGNATURE
+META.yml MYMETA.yml Makefile.PL SIGNATURE
Data-Integer-*
Modified: branches/upstream/libdata-integer-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/Build.PL?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/Build.PL (original)
+++ branches/upstream/libdata-integer-perl/current/Build.PL Mon Aug 2 10:01:42 2010
@@ -1,29 +1,35 @@
+{ use 5.006; }
use warnings;
use strict;
-no strict "subs";
use Module::Build;
Module::Build->new(
module_name => "Data::Integer",
license => "perl",
+ configure_requires => {
+ "Module::Build" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
+ },
build_requires => {
- Module::Build => 0,
- Test::More => 0,
- integer => 0,
- perl => "5.006",
- strict => 0,
- warnings => 0,
+ "Module::Build" => 0,
+ "Test::More" => 0,
+ "integer" => 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" },
@@ -31,4 +37,4 @@
sign => 1,
)->create_build_script;
-exit 0;
+1;
Modified: branches/upstream/libdata-integer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/Changes?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/Changes (original)
+++ branches/upstream/libdata-integer-perl/current/Changes Mon Aug 2 10:01:42 2010
@@ -1,3 +1,27 @@
+version 0.004; 2010-07-26
+
+ * in documentation of {s,u}int_msub(), correct description that said
+ "addition" instead of "subtraction"
+
+ * in synopsis, correct number of parameters for {s,u}int_mux()
+
+ * 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.003; 2007-10-26
* add natint_hex() and hex_natint() functions to output and input
Modified: branches/upstream/libdata-integer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/META.yml?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/META.yml (original)
+++ branches/upstream/libdata-integer-perl/current/META.yml Mon Aug 2 10:01:42 2010
@@ -1,21 +1,7 @@
---
-name: Data-Integer
-version: 0.003
+abstract: 'details of the native integer data type'
author:
- 'Andrew Main (Zefram) <zefram at fysh.org>'
-abstract: details of the native integer 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
@@ -23,13 +9,32 @@
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-Integer
provides:
Data::Integer:
file: lib/Data/Integer.pm
- version: 0.003
-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.004
+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.004
Modified: branches/upstream/libdata-integer-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/Makefile.PL?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/Makefile.PL (original)
+++ branches/upstream/libdata-integer-perl/current/Makefile.PL Mon Aug 2 10:01:42 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: branches/upstream/libdata-integer-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/README?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/README (original)
+++ branches/upstream/libdata-integer-perl/current/README Mon Aug 2 10:01:42 2010
@@ -25,7 +25,7 @@
COPYRIGHT
-Copyright (C) 2007 Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2007, 2010 Andrew Main (Zefram) <zefram at fysh.org>
LICENSE
Modified: branches/upstream/libdata-integer-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/SIGNATURE?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/SIGNATURE (original)
+++ branches/upstream/libdata-integer-perl/current/SIGNATURE Mon Aug 2 10:01:42 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 8aeb57c923d72c343045f6fa2559f7bc9aeceee7 .cvsignore
-SHA1 bfaf543950e709954c275f9c7dbd815b86e3c0b7 Build.PL
-SHA1 8721690b3f542d442805d2b06d8c03d70a8c4ce2 Changes
+SHA1 ba49ef40300a13f7460b40389d8b409a2322a1f9 .cvsignore
+SHA1 89ff4f6bd8cc3dce68bb468d84ed80b42a850415 Build.PL
+SHA1 05703b0c95013353117b85a006e3b6bccbee1406 Changes
SHA1 973611a3dd36b64c268d1bb434068bf77aebe41d MANIFEST
-SHA1 c2c4c390bf45e0190baa0e583314e40be06153b8 META.yml
-SHA1 cd14ada78fb37a0d926edd86eddcdf7f939de582 Makefile.PL
-SHA1 1971244c94a6c3e84af8fc25e165f4a469f1de73 README
-SHA1 742f4ac11dd952b66b60930ff2ae4c5d37a068eb lib/Data/Integer.pm
-SHA1 7da3f6136cf1a951c0061cf8529f595c4a012f63 t/arith.t
-SHA1 fc4a64e59cbf3c8473c78590786ebfec1000f263 t/bitwise.t
-SHA1 91816e78bd239ee7482f91232c6dda81d16fe8d7 t/canon.t
-SHA1 45806807e84a241b7892073ccf8c62fd8ba661bd t/const.t
-SHA1 0dc3c05b8e8a4a124bcd990389bc02f24559546f t/fmt.t
-SHA1 f4db2e3cc147e91ee0c4498d483d5de86ca80d6d t/hex.t
-SHA1 564c04d2b28b646290da5b132afdfeaaa47ff7cd t/marith.t
-SHA1 0e141eecf3ca4903ef38d9413b5403a9ddb0392f t/pod_cvg.t
-SHA1 74a957cd8b93f25672ecc6aa578a671d084dd343 t/pod_syn.t
-SHA1 fe46e1d2059dbc592eace4ccda9951e921e7abbe t/shift.t
+SHA1 a0883f66969a2aef5a45b0f641f9faee3f45e8d0 META.yml
+SHA1 caae608231ffe78390c76451ade51a7cfc87a9f9 Makefile.PL
+SHA1 ed8fbe8d2149a0497b601886e2f4133a352eb4e9 README
+SHA1 0234b643352a56d8304182b1fea80fe26c404599 lib/Data/Integer.pm
+SHA1 a6775c8babaa5a71ec2762cffb276ee7530a449f t/arith.t
+SHA1 a4c627f299ef3fb42c8ab1b2151d667c7c4a0b69 t/bitwise.t
+SHA1 1c725e7123c27fd68fd93512a273a246234affd3 t/canon.t
+SHA1 3de2723a7593d5e49a3c0e87d7b29c5a694c6a10 t/const.t
+SHA1 d784710a9ccd68988b460781fe738173c1f4cf5f t/fmt.t
+SHA1 763505f6c82a121f8fb51f6e97a9d91325242e96 t/hex.t
+SHA1 000292602149b3a4395b102c949515abb80baafd t/marith.t
+SHA1 904d9a4f76525e2303e4b0c168c68230f223c8de t/pod_cvg.t
+SHA1 65c75abdef6f01a5d1588a307f2ddfe2333dc961 t/pod_syn.t
+SHA1 109d93a082fe01366dea95f4c099b7d04fb775b3 t/shift.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
+Version: GnuPG v1.4.9 (GNU/Linux)
-iD8DBQFHIlgKOV9mt2VyAVERAj/hAJ47X2jNlRAyNExYS5kDMctg8vSozQCfddyE
-KpK+frchbMjeYwHYuZx4JCY=
-=rpyK
+iEYEARECAAYFAkxN7L0ACgkQOV9mt2VyAVH2hQCeO/7WSkGV0fGGIi3f6OMHsLnU
+07YAoJlZU5LMv1tF2pfdWinlNF5krsSi
+=VyTP
-----END PGP SIGNATURE-----
Modified: branches/upstream/libdata-integer-perl/current/lib/Data/Integer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/lib/Data/Integer.pm?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/lib/Data/Integer.pm (original)
+++ branches/upstream/libdata-integer-perl/current/lib/Data/Integer.pm Mon Aug 2 10:01:42 2010
@@ -111,8 +111,8 @@
$ui = uint_xor($ua, $ub);
$si = sint_nxor($sa, $sb);
$ui = uint_nxor($ua, $ub);
- $si = sint_mux($sa, $sb);
- $ui = uint_mux($ua, $ub);
+ $si = sint_mux($sa, $sb, $sc);
+ $ui = uint_mux($ua, $ub, $uc);
use Data::Integer qw(
sint_madd uint_madd
@@ -179,14 +179,15 @@
package Data::Integer;
+{ use 5.006; }
use warnings;
use strict;
use Carp qw(croak);
-our $VERSION = "0.003";
-
-use base "Exporter";
+our $VERSION = "0.004";
+
+use parent "Exporter";
our @EXPORT_OK = qw(
natint_bits
min_nint max_nint min_natint max_natint
@@ -410,7 +411,7 @@
=item nint_is_sint(A)
-Takes a native integer of either type. Returns a Boolean indicating
+Takes a native integer of either type. Returns a truth value indicating
whether this value can be exactly represented as a signed native integer.
=cut
@@ -423,7 +424,7 @@
=item nint_is_uint(A)
-Takes a native integer of either type. Returns a Boolean indicating
+Takes a native integer of either type. Returns a truth value indicating
whether this value can be exactly represented as an unsigned native
integer.
@@ -1134,7 +1135,7 @@
=item uint_msub(A, B)
-Modular addition. The result for unsigned addition is (A - B)
+Modular subtraction. The result for unsigned subtraction is (A - B)
mod 2^natint_bits. The signed version behaves similarly, but with a
different result range.
@@ -1406,7 +1407,7 @@
=head1 COPYRIGHT
-Copyright (C) 2007 Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2007, 2010 Andrew Main (Zefram) <zefram at fysh.org>
=head1 LICENSE
Modified: branches/upstream/libdata-integer-perl/current/t/arith.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/arith.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/arith.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/arith.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 3*14*14 + 3*11*11 + 3*9*9 + 108 + 1749;
BEGIN { use_ok "Data::Integer", qw(
@@ -390,3 +393,5 @@
}
}
}
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/bitwise.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/bitwise.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/bitwise.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/bitwise.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 4*4 + (4*8 + 4*8 + 2*8)*2 + 4*8 + 4*8 + 4*5;
BEGIN { use_ok "Data::Integer", qw(
@@ -182,3 +185,5 @@
nint_is sint_mux($sa, $sb, $sc), $sr;
nint_is sint_mux(do { use integer; ~$sa }, $sc, $sb), $sr;
}
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/canon.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/canon.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/canon.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/canon.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 5*16 + 3*3;
BEGIN { use_ok "Data::Integer", qw(
@@ -53,3 +56,5 @@
eval { sint($_) }; like $@, qr/\Anot a signed native integer/;
eval { uint($_) }; like $@, qr/\Anot an unsigned native integer/;
}
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/const.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/const.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/const.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/const.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 18;
BEGIN { use_ok "Data::Integer", qw(
@@ -47,3 +50,5 @@
nint_is max_unsigned_natint, $max_uint;
nint_is max_nint, $max_uint;
nint_is max_natint, $max_uint;
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/fmt.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/fmt.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/fmt.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/fmt.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 4*5 + 6*4;
BEGIN { use_ok "Data::Integer", qw(
@@ -36,3 +39,5 @@
nint_is sint_bits_as_uint($si), $ui;
nint_is uint_bits_as_sint($ui), $si;
}
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/hex.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/hex.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/hex.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/hex.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 116;
BEGIN { use_ok "Data::Integer", qw(natint_hex hex_natint natint_bits); }
@@ -111,3 +114,5 @@
eval { hex_natint("-".$over_digit.("0" x $tail_digits)) };
like $@, qr/\Ainteger value too large/;
}
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/marith.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/marith.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/marith.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/marith.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 8*86 + 8*98 + 8*86 + 2*49 + 2*43 + 1*92 + 1*89;
BEGIN { use_ok "Data::Integer", qw(
@@ -633,3 +636,5 @@
my($a, $b, $c) = @$_;
nint_is uint_ssub($a, $b), $c;
}
+
+1;
Modified: branches/upstream/libdata-integer-perl/current/t/pod_cvg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/pod_cvg.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/pod_cvg.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/pod_cvg.t Mon Aug 2 10:01:42 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: branches/upstream/libdata-integer-perl/current/t/pod_syn.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/pod_syn.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/pod_syn.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/pod_syn.t Mon Aug 2 10:01:42 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: branches/upstream/libdata-integer-perl/current/t/shift.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-integer-perl/current/t/shift.t?rev=61085&op=diff
==============================================================================
--- branches/upstream/libdata-integer-perl/current/t/shift.t (original)
+++ branches/upstream/libdata-integer-perl/current/t/shift.t Mon Aug 2 10:01:42 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 2*21 + 1*17 + 1*17 + 4*21;
BEGIN { use_ok "Data::Integer", qw(
@@ -126,3 +129,5 @@
nint_is sint_rol($sa, $ldist), $sr;
nint_is sint_ror($sa, $rdist), $sr;
}
+
+1;
More information about the Pkg-perl-cvs-commits
mailing list