r62144 - in /trunk/libparams-classify-perl: ./ debian/ debian/source/ lib/Params/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Aug 28 14:39:17 UTC 2010
Author: ansgar-guest
Date: Sat Aug 28 14:39:10 2010
New Revision: 62144
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62144
Log:
* New upstream release.
* debian/copyright: Update for current DEP-5 proposal; update years of
copyright; refer to /usr/share/common-licenses/GPL-1; refer to
"Debian systems" instead of "Debian GNU/Linux systems".
* Use debhelper compat level 8.
* Use source format 3.0 (quilt).
* Remove build-dep on perl (>= 5.10) | libmodule-build-perl as this
dependency is already satisfied in stable by the perl build-dep.
* Bump Standards-Version to 3.9.1.
Added:
trunk/libparams-classify-perl/debian/source/
trunk/libparams-classify-perl/debian/source/format
trunk/libparams-classify-perl/t/pod_cvg_pp.t
- copied unchanged from r62115, branches/upstream/libparams-classify-perl/current/t/pod_cvg_pp.t
trunk/libparams-classify-perl/typemap
- copied unchanged from r62115, branches/upstream/libparams-classify-perl/current/typemap
Modified:
trunk/libparams-classify-perl/.cvsignore
trunk/libparams-classify-perl/Build.PL
trunk/libparams-classify-perl/Changes
trunk/libparams-classify-perl/MANIFEST
trunk/libparams-classify-perl/META.yml
trunk/libparams-classify-perl/Makefile.PL
trunk/libparams-classify-perl/README
trunk/libparams-classify-perl/SIGNATURE
trunk/libparams-classify-perl/debian/changelog
trunk/libparams-classify-perl/debian/compat
trunk/libparams-classify-perl/debian/control
trunk/libparams-classify-perl/debian/copyright
trunk/libparams-classify-perl/lib/Params/Classify.pm
trunk/libparams-classify-perl/lib/Params/Classify.xs
trunk/libparams-classify-perl/t/blessed.t
trunk/libparams-classify-perl/t/classify.t
trunk/libparams-classify-perl/t/pod_cvg.t
trunk/libparams-classify-perl/t/pod_syn.t
trunk/libparams-classify-perl/t/ref.t
Modified: trunk/libparams-classify-perl/.cvsignore
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/.cvsignore?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/.cvsignore (original)
+++ trunk/libparams-classify-perl/.cvsignore Sat Aug 28 14:39:10 2010
@@ -1,4 +1,4 @@
Build Makefile
_build blib
-META.yml Makefile.PL SIGNATURE
+META.yml MYMETA.yml Makefile.PL SIGNATURE
Params-Classify-*
Modified: trunk/libparams-classify-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/Build.PL?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/Build.PL (original)
+++ trunk/libparams-classify-perl/Build.PL Sat Aug 28 14:39:10 2010
@@ -36,6 +36,15 @@
})->new(
module_name => "Params::Classify",
license => "perl",
+ configure_requires => {
+ "Module::Build" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
+ },
+ configure_recommends => {
+ "ExtUtils::CBuilder" => "0.15",
+ },
build_requires => {
"Module::Build" => 0,
"Test::More" => 0,
@@ -57,6 +66,7 @@
recommends => {
"XSLoader" => 0,
},
+ needs_compiler => 0,
dynamic_config => 1,
meta_add => { distribution_type => "module" },
create_makefile_pl => "passthrough",
Modified: trunk/libparams-classify-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/Changes?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/Changes (original)
+++ trunk/libparams-classify-perl/Changes Sat Aug 28 14:39:10 2010
@@ -1,3 +1,33 @@
+version 0.011; 2010-08-21
+
+ * bugfix: add a typemap entry for "const char *", to make XS version
+ of scalar_class() work correctly on Perl 5.6, having been broken by
+ the const fix in version 0.010
+
+ * in XS code, on Perls where it exists (prior to 5.9.5), treat SVt_PVBM
+ as a scalar referent type
+
+version 0.010; 2010-08-20
+
+ * in XS, use PERL_NO_GET_CONTEXT for efficiency
+
+ * use full stricture in test suite
+
+ * also test POD coverage of pure Perl implementation
+
+ * in test suite, make all numeric comparisons against $] stringify it
+ first, to avoid architecture-dependent problems with floating point
+ rounding giving it an unexpected numeric value
+
+ * make XS code const clean for gcc -Wwrite-strings
+
+ * in Build.PL, explicitly set needs_compiler to avoid bogus
+ auto-dependency on ExtUtils::CBuilder
+
+ * in Build.PL, explicitly declare configure-time requirements
+
+ * add MYMETA.yml to .cvsignore
+
version 0.009; 2009-10-07
* port to Perl 5.11.0, supporting the addition of first-class regexp
Modified: trunk/libparams-classify-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/MANIFEST?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/MANIFEST (original)
+++ trunk/libparams-classify-perl/MANIFEST Sat Aug 28 14:39:10 2010
@@ -17,8 +17,10 @@
t/error.t
t/error_pp.t
t/pod_cvg.t
+t/pod_cvg_pp.t
t/pod_syn.t
t/ref.t
t/ref_pp.t
t/setup_pp.pl
+typemap
SIGNATURE Added here by Module::Build
Modified: trunk/libparams-classify-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/META.yml?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/META.yml (original)
+++ trunk/libparams-classify-perl/META.yml Sat Aug 28 14:39:10 2010
@@ -1,12 +1,32 @@
---
-name: Params-Classify
-version: 0.009
+abstract: 'argument type classification'
author:
- 'Andrew Main (Zefram) <zefram at fysh.org>'
-abstract: argument type classification
+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: 1
+generated_by: 'Module::Build version 0.3607'
license: perl
-resources:
- license: http://dev.perl.org/licenses/
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Params-Classify
+provides:
+ Params::Classify:
+ file: lib/Params/Classify.pm
+ version: 0.011
+recommends:
+ XSLoader: 0
requires:
Exporter: 0
Scalar::Util: 1.01
@@ -14,21 +34,6 @@
perl: 5.006
strict: 0
warnings: 0
-build_requires:
- Module::Build: 0
- Test::More: 0
- perl: 5.006
- strict: 0
- warnings: 0
-recommends:
- XSLoader: 0
-dynamic_config: 1
-provides:
- Params::Classify:
- file: lib/Params/Classify.pm
- version: 0.009
-generated_by: Module::Build version 0.280801
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-distribution_type: module
+resources:
+ license: http://dev.perl.org/licenses/
+version: 0.011
Modified: trunk/libparams-classify-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/Makefile.PL?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/Makefile.PL (original)
+++ trunk/libparams-classify-perl/Makefile.PL Sat Aug 28 14:39:10 2010
@@ -1,32 +1,35 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+# 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 $@;
use lib '_build/lib';
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 MyModuleBuilder;
Module::Build::Compat->write_makefile(build_class => 'MyModuleBuilder');
Modified: trunk/libparams-classify-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/README?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/README (original)
+++ trunk/libparams-classify-perl/README Sat Aug 28 14:39:10 2010
@@ -37,7 +37,7 @@
COPYRIGHT
-Copyright (C) 2004, 2006, 2007, 2009
+Copyright (C) 2004, 2006, 2007, 2009, 2010
Andrew Main (Zefram) <zefram at fysh.org>
Copyright (C) 2009 PhotoBox Ltd
Modified: trunk/libparams-classify-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/SIGNATURE?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/SIGNATURE (original)
+++ trunk/libparams-classify-perl/SIGNATURE Sat Aug 28 14:39:10 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,33 +14,35 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 9f070b5a5dcc2d53447a0f43584eb219aa686f66 .cvsignore
-SHA1 ac032bc697cfb90a5c3befe6ae81ea33f27226af Build.PL
-SHA1 00875ad7987e07c923e8b7ea8b05bf0ed07cbccd Changes
-SHA1 f9620d343525ff1fc3e3f35e77171716b97c557c MANIFEST
-SHA1 b8fe1ad99bf3075e702a6c0dc74e6584fb8e186d META.yml
-SHA1 34fe1b08005c6feb5ed84bd22456347fe2032f4b Makefile.PL
-SHA1 104090ec719f91482eaa564c826c250c45b21a59 README
+SHA1 2f6a77cc1af0bc60cf87ec5335a995defa3e6eaf .cvsignore
+SHA1 eb1a6d988e8012949c71066ed23751ba18493c97 Build.PL
+SHA1 9a7715bf3d736d052ecedfe8092b15af7ce85f54 Changes
+SHA1 8b741c0e9a220ef773d4bf3d886a06cbabdd786a MANIFEST
+SHA1 99a03b6b8509df54b83be24845d1eb70ba72ddc0 META.yml
+SHA1 0f1b3b6269550b5135e10b3cae1b6b41d274b276 Makefile.PL
+SHA1 22606943ca520a0edae224ee185c4b16736a6aa7 README
SHA1 91978573e906c90b93752e0733ef8e875f0d1b89 lib/Params/.cvsignore
-SHA1 5eaa23d5ec2542a3497f869a2d88742732ea6033 lib/Params/Classify.pm
-SHA1 e05ab9aa13db9a19dd430421ef853dd14b9da5c8 lib/Params/Classify.xs
-SHA1 4b8cdbbfd1dea667bdd61a8b9621109c68e0dc7a t/blessed.t
+SHA1 a7f7a5247e2c30c3639bb376eb7f703ad865d11b lib/Params/Classify.pm
+SHA1 13231bb9deaecfba38e92650dbf2e684e4cdcff1 lib/Params/Classify.xs
+SHA1 b6e5695d00df7c2874dcc6e6d645436772f44e50 t/blessed.t
SHA1 a3d9a389510faf3bfecb4860a14813988a0eddcd t/blessed_pp.t
SHA1 05aff9d44d733979b0bd8f566d1cb27fe7bd1657 t/check.t
SHA1 ec88f98f2f29c1a6999db46666e5eb7cf9fa46b1 t/check_pp.t
-SHA1 ca5ae17f55bba5a9a9a76285447704e4a922b643 t/classify.t
+SHA1 7596e2da3819d45e6599c65fc57a66030233cf1c t/classify.t
SHA1 22c8bb9af38f3eaa604350884e3fcc9c200b5f1b t/classify_pp.t
SHA1 3250e576c589744c9b3ef63c93b13d8ba6a5933f t/error.t
SHA1 fc008cb61eb02798d6ec02df230ef4d59bcdca12 t/error_pp.t
-SHA1 0e141eecf3ca4903ef38d9413b5403a9ddb0392f t/pod_cvg.t
-SHA1 74a957cd8b93f25672ecc6aa578a671d084dd343 t/pod_syn.t
-SHA1 d7e84d9429f7f167d69badae1cef27137b1480f4 t/ref.t
+SHA1 904d9a4f76525e2303e4b0c168c68230f223c8de t/pod_cvg.t
+SHA1 3f447b1d0b8a6247c3a311087f8d66da1c3ca5db t/pod_cvg_pp.t
+SHA1 65c75abdef6f01a5d1588a307f2ddfe2333dc961 t/pod_syn.t
+SHA1 93fc9fc65ef321451b0cddf31ee88c3a2abc1e3f t/ref.t
SHA1 4a19b745e2bcdfb8db18b149e79fcf8c235b24f8 t/ref_pp.t
SHA1 2159e80bde44de0eac1d90b83b57ae9681876519 t/setup_pp.pl
+SHA1 ef8a3a33429734cbd52043873bac2cc10e24044f typemap
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAkrL/2gACgkQOV9mt2VyAVF0mACeKswRGJ7JvBo++ArdsBMEd74L
-sPAAn3tqeaFBN2/RpWJ9Joi1ovN+cIQ+
-=3u9E
+iEYEARECAAYFAkxvqiYACgkQOV9mt2VyAVGCtACfYCah+5bbkVeZi0Pphq6GwfnE
+PoMAmwZA+LEOJGGXGF6wJ1EuPPN3+XTC
+=frV5
-----END PGP SIGNATURE-----
Modified: trunk/libparams-classify-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/debian/changelog?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/debian/changelog (original)
+++ trunk/libparams-classify-perl/debian/changelog Sat Aug 28 14:39:10 2010
@@ -1,9 +1,21 @@
-libparams-classify-perl (0.009-2) UNRELEASED; urgency=low
+libparams-classify-perl (0.011-1) unstable; urgency=low
+ [ gregor herrmann ]
* debian/control: Changed: (build-)depend on perl instead of perl-
modules.
- -- gregor herrmann <gregoa at debian.org> Fri, 23 Oct 2009 02:25:42 +0200
+ [ Ansgar Burchardt ]
+ * New upstream release.
+ * debian/copyright: Update for current DEP-5 proposal; update years of
+ copyright; refer to /usr/share/common-licenses/GPL-1; refer to
+ "Debian systems" instead of "Debian GNU/Linux systems".
+ * Use debhelper compat level 8.
+ * Use source format 3.0 (quilt).
+ * Remove build-dep on perl (>= 5.10) | libmodule-build-perl as this
+ dependency is already satisfied in stable by the perl build-dep.
+ * Bump Standards-Version to 3.9.1.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sat, 28 Aug 2010 23:38:56 +0900
libparams-classify-perl (0.009-1) unstable; urgency=low
Modified: trunk/libparams-classify-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/debian/compat?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/debian/compat (original)
+++ trunk/libparams-classify-perl/debian/compat Sat Aug 28 14:39:10 2010
@@ -1,1 +1,1 @@
-7
+8
Modified: trunk/libparams-classify-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/debian/control?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/debian/control (original)
+++ trunk/libparams-classify-perl/debian/control Sat Aug 28 14:39:10 2010
@@ -6,10 +6,9 @@
Damyan Ivanov <dmn at debian.org>,
Rene Mayorga <rmayorga at debian.org>, Ryan Niebur <ryan at debian.org>,
Ansgar Burchardt <ansgar at 43-1.org>, Brian Cassidy <brian.cassidy at gmail.com>
-Build-Depends: debhelper (>= 7.2.13), perl (>= 5.10) |
- libmodule-build-perl, perl, libtest-pod-perl,
+Build-Depends: debhelper (>= 8), perl, libtest-pod-perl,
libtest-pod-coverage-perl, libparent-perl
-Standards-Version: 3.8.3
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Params-Classify/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libparams-classify-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libparams-classify-perl/
Modified: trunk/libparams-classify-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/debian/copyright?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/debian/copyright (original)
+++ trunk/libparams-classify-perl/debian/copyright Sat Aug 28 14:39:10 2010
@@ -1,34 +1,36 @@
-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/Params-Classify/
-Upstream-Name: Params-Classify
+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/Params-Classify/
+Name: Params-Classify
Files: *
-Copyright: © 2004, 2006, 2007, 2009 Andrew Main (Zefram) <zefram at fysh.org>
- © 2009 PhotoBox Ltd
-License-Alias: Perl
-License: Artistic | GPL-1+
+Copyright:
+ 2004, 2006, 2007, 2009, 2010 Andrew Main (Zefram) <zefram at fysh.org>
+ 2009 PhotoBox Ltd
+License: Artistic or GPL-1+
Files: debian/*
-Copyright: © 2004 Florian Ragwitz <florian at mookooh.org>
- © 2004 Joachim Breitner <nomeata at debian.org>
- © 2006-2009 gregor herrmann <gregoa at debian.org>
- © 2007 Damyan Ivanov <dmn at debian.org>
- © 2009 Rene Mayorga <rmayorga at debian.org>
- © 2009 Brian Cassidy <brian.cassidy at gmail.com>
-License: Artistic | GPL-1+
+Copyright:
+ 2004 Florian Ragwitz <florian at mookooh.org>
+ 2004 Joachim Breitner <nomeata at debian.org>
+ 2006-2009 gregor herrmann <gregoa at debian.org>
+ 2007 Damyan Ivanov <dmn at debian.org>
+ 2009 Rene Mayorga <rmayorga at debian.org>
+ 2009 Brian Cassidy <brian.cassidy 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 systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
Added: trunk/libparams-classify-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/debian/source/format?rev=62144&op=file
==============================================================================
--- trunk/libparams-classify-perl/debian/source/format (added)
+++ trunk/libparams-classify-perl/debian/source/format Sat Aug 28 14:39:10 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libparams-classify-perl/lib/Params/Classify.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/lib/Params/Classify.pm?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/lib/Params/Classify.pm (original)
+++ trunk/libparams-classify-perl/lib/Params/Classify.pm Sat Aug 28 14:39:10 2010
@@ -78,7 +78,7 @@
use warnings;
use strict;
-our $VERSION = "0.009";
+our $VERSION = "0.011";
use parent "Exporter";
our @EXPORT_OK = qw(
@@ -573,7 +573,7 @@
=head1 COPYRIGHT
-Copyright (C) 2004, 2006, 2007, 2009
+Copyright (C) 2004, 2006, 2007, 2009, 2010
Andrew Main (Zefram) <zefram at fysh.org>
Copyright (C) 2009 PhotoBox Ltd
Modified: trunk/libparams-classify-perl/lib/Params/Classify.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/lib/Params/Classify.xs?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/lib/Params/Classify.xs (original)
+++ trunk/libparams-classify-perl/lib/Params/Classify.xs Sat Aug 28 14:39:10 2010
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT 1
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
@@ -26,8 +27,8 @@
(!sv_is_glob(sv) && !sv_is_regexp(sv) && \
(SvFLAGS(sv) & (SVf_IOK|SVf_NOK|SVf_POK|SVp_IOK|SVp_NOK|SVp_POK)))
-static svtype
-read_reftype(SV *reftype)
+#define read_reftype(reftype) THX_read_reftype(aTHX_ reftype)
+static svtype THX_read_reftype(pTHX_ SV *reftype)
{
char *p;
STRLEN l;
@@ -62,8 +63,8 @@
}
}
-static const char *
-write_reftype(svtype t)
+#define write_reftype(t) THX_write_reftype(aTHX_ t)
+static const char *THX_write_reftype(pTHX_ svtype t)
{
switch(t) {
case SVt_NULL: return "SCALAR";
@@ -76,8 +77,8 @@
}
}
-static const char *
-display_reftype(svtype t)
+#define display_reftype(t) THX_display_reftype(aTHX_ t)
+static const char *THX_display_reftype(pTHX_ svtype t)
{
switch(t) {
case SVt_NULL: return "scalar";
@@ -90,17 +91,20 @@
}
}
-static svtype
-ref_type(SV *referent)
+#define ref_type(referent) THX_ref_type(aTHX_ referent)
+static svtype THX_ref_type(pTHX_ SV *referent)
{
svtype t = SvTYPE(referent);
- switch(SvTYPE(referent)) {
+ switch(t) {
case SVt_NULL: case SVt_IV: case SVt_NV:
#if !PERL_VERSION_GE(5,11,0)
case SVt_RV:
#endif /* <5.11.0 */
case SVt_PV: case SVt_PVIV: case SVt_PVNV:
case SVt_PVMG: case SVt_PVLV: case SVt_PVGV:
+#if !PERL_VERSION_GE(5,9,5)
+ case SVt_PVBM:
+#endif /* <5.9.5 */
#if PERL_VERSION_GE(5,11,0)
case SVt_REGEXP:
#endif /* >=5.11.0 */
@@ -112,16 +116,18 @@
}
}
-static const char *
-blessed_class(SV *referent)
+#define blessed_class(referent) THX_blessed_class(aTHX_ referent)
+static const char *THX_blessed_class(pTHX_ SV *referent)
{
HV *stash = SvSTASH(referent);
const char *name = HvNAME_get(stash);
return name ? name : "__ANON__";
}
-static bool
-call_bool_method(SV *objref, const char *methodname, SV *arg)
+#define call_bool_method(objref, methodname, arg) \
+ THX_call_bool_method(aTHX_ objref, methodname, arg)
+static bool THX_call_bool_method(pTHX_ SV *objref, const char *methodname,
+ SV *arg)
{
dSP;
int retcount;
@@ -144,8 +150,8 @@
return retval;
}
-static void
-check_methods_arg(SV *methods_sv)
+#define check_methods_arg(methods_sv) THX_check_methods_arg(aTHX_ methods_sv)
+static void THX_check_methods_arg(pTHX_ SV *methods_sv)
{
AV *methods_av;
I32 alen, pos;
@@ -164,7 +170,7 @@
MODULE = Params::Classify PACKAGE = Params::Classify
-char *
+const char *
scalar_class(SV *arg)
PROTOTYPE: $
CODE:
Modified: trunk/libparams-classify-perl/t/blessed.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/t/blessed.t?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/t/blessed.t (original)
+++ trunk/libparams-classify-perl/t/blessed.t Sat Aug 28 14:39:10 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 129;
@B::ISA = qw(A);
Modified: trunk/libparams-classify-perl/t/classify.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/t/classify.t?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/t/classify.t (original)
+++ trunk/libparams-classify-perl/t/classify.t Sat Aug 28 14:39:10 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 8*11;
BEGIN {
@@ -27,7 +30,7 @@
test_scalar_classification("0 but true", "STRING", 0, 1, 1, 0, 0, 0, 0);
test_scalar_classification("1ab", "STRING", 0, 1, 0, 0, 0, 0, 0);
test_scalar_classification(*STDOUT, "GLOB", 0, 0, 0, 1, 0, 0, 0);
-SKIP: { skip "no first-class regexps", 8 unless $] >= 5.011;
+SKIP: { skip "no first-class regexps", 8 unless "$]" >= 5.011;
test_scalar_classification(${qr/xyz/}, "REGEXP", 0, 0, 0, 0, 1, 0, 0);
}
test_scalar_classification({}, "REF", 0, 0, 0, 0, 0, 1, 0);
Modified: trunk/libparams-classify-perl/t/pod_cvg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/t/pod_cvg.t?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/t/pod_cvg.t (original)
+++ trunk/libparams-classify-perl/t/pod_cvg.t Sat Aug 28 14:39:10 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/libparams-classify-perl/t/pod_syn.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/t/pod_syn.t?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/t/pod_syn.t (original)
+++ trunk/libparams-classify-perl/t/pod_syn.t Sat Aug 28 14:39:10 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/libparams-classify-perl/t/ref.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparams-classify-perl/t/ref.t?rev=62144&op=diff
==============================================================================
--- trunk/libparams-classify-perl/t/ref.t (original)
+++ trunk/libparams-classify-perl/t/ref.t Sat Aug 28 14:39:10 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 8*12;
BEGIN { use_ok "Params::Classify", qw(is_ref ref_type); }
More information about the Pkg-perl-cvs-commits
mailing list