diff options
author | Todd Rinaldo <toddr@cpan.org> | 2020-10-01 12:01:44 -0500 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2020-10-02 09:50:04 -0500 |
commit | 966a34475a7c626a373d46daf542d053d035ed13 (patch) | |
tree | f46d9a3cd994ba421595a67e7f7991c663fd805d /vutil.h | |
parent | 04b729c025ff8e603d17d10088b5379837ec644e (diff) | |
download | perl-966a34475a7c626a373d46daf542d053d035ed13.tar.gz |
Update version to CPAN version 0.9928
[DELTA]
0.9927
* Released 0.99_26 as 0.9927
0.99_26
* Add usage error to pure-perl vcmp
* Quote version classname in test for 5.8 compatability
* Use base instead of parent for tests
* Update ppport.h for future compatibility
0.99_25
* Fix stack usage in vcmp method
* Drop Perl 5.5 compatibility
* Use PERL_VERSION_GE for Perl 7 compatibility
* Fix typo in pod example for comparing versions.
Diffstat (limited to 'vutil.h')
-rw-r--r-- | vutil.h | 19 |
1 files changed, 13 insertions, 6 deletions
@@ -1,10 +1,6 @@ /* This file is part of the "version" CPAN distribution. Please avoid editing it in the perl core. */ -#ifndef PERL_CORE -# include "ppport.h" -#endif - /* The MUTABLE_*() macros cast pointers to the types shown, in such a way * (compiler permitting) that casting away const-ness will give a warning; * e.g.: @@ -20,12 +16,24 @@ # else # define MUTABLE_PTR(p) ((void *) (p)) # endif +#endif +#ifndef MUTABLE_AV # define MUTABLE_AV(p) ((AV *)MUTABLE_PTR(p)) +#endif +#ifndef MUTABLE_CV # define MUTABLE_CV(p) ((CV *)MUTABLE_PTR(p)) +#endif +#ifndef MUTABLE_GV # define MUTABLE_GV(p) ((GV *)MUTABLE_PTR(p)) +#endif +#ifndef MUTABLE_HV # define MUTABLE_HV(p) ((HV *)MUTABLE_PTR(p)) +#endif +#ifndef MUTABLE_IO # define MUTABLE_IO(p) ((IO *)MUTABLE_PTR(p)) +#endif +#ifndef MUTABLE_SV # define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p)) #endif @@ -81,7 +89,6 @@ Perl_ck_warner(pTHX_ U32 err, const char* pat, ...) # define ISA_VERSION_OBJ(v) (sv_isobject(v) && sv_derived_from_pvn(v,"version",7,0)) #endif - #ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params) @@ -216,7 +223,7 @@ const char * Perl_prescan_version(pTHX_ const char *s, bool strict, const char** #if PERL_VERSION_LT(5,27,9) -# define LC_NUMERIC_LOCK +# define LC_NUMERIC_LOCK(cond) # define LC_NUMERIC_UNLOCK # if PERL_VERSION_LT(5,19,0) # undef STORE_LC_NUMERIC_SET_STANDARD |