This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
t/re/reg_mesg.t: Add test for [perl #132055]
[perl5.git]
/
vxs.inc
diff --git
a/vxs.inc
b/vxs.inc
index
a047b2c
..
b5c00d7
100644
(file)
--- a/
vxs.inc
+++ b/
vxs.inc
@@
-138,7
+138,7
@@
VXS(universal_version)
name, SvPVx_nolen_const(req));
#else
Perl_croak(aTHX_
name, SvPVx_nolen_const(req));
#else
Perl_croak(aTHX_
- "%"
HEKf" does not define $%"
HEKf
+ "%"
HEKf " does not define $%"
HEKf
"::VERSION--version check failed",
HEKfARG(name), HEKfARG(name));
#endif
"::VERSION--version check failed",
HEKfARG(name), HEKfARG(name));
#endif
@@
-146,7
+146,8
@@
VXS(universal_version)
else {
#if PERL_VERSION >= 8
Perl_croak(aTHX_
else {
#if PERL_VERSION >= 8
Perl_croak(aTHX_
- "%"SVf" defines neither package nor VERSION--version check failed",
+ "%" SVf " defines neither package nor VERSION--"
+ "version check failed",
(void*)(ST(0)) );
#else
Perl_croak(aTHX_ "%s does not define $%s::VERSION--version check failed",
(void*)(ST(0)) );
#else
Perl_croak(aTHX_ "%s does not define $%s::VERSION--version check failed",
@@
-170,8
+171,8
@@
VXS(universal_version)
req = VSTRINGIFY(req);
sv = VSTRINGIFY(sv);
}
req = VSTRINGIFY(req);
sv = VSTRINGIFY(sv);
}
- Perl_croak(aTHX_ "%"
HEKf" version %"SVf
" required--"
- "this is only version %"
SVf""
, HEKfARG(HvNAME_HEK(pkg)),
+ Perl_croak(aTHX_ "%"
HEKf " version %" SVf
" required--"
+ "this is only version %"
SVf
, HEKfARG(HvNAME_HEK(pkg)),
SVfARG(sv_2mortal(req)),
SVfARG(sv_2mortal(sv)));
}
SVfARG(sv_2mortal(req)),
SVfARG(sv_2mortal(sv)));
}
@@
-218,7
+219,7
@@
VXS(version_new)
SvGETMAGIC(vs);
if(SvOK(vs))
break;
SvGETMAGIC(vs);
if(SvOK(vs))
break;
- /*
drop
through */
+ /*
fall
through */
case 1:
/* no param or explicit undef */
/* create empty object */
case 1:
/* no param or explicit undef */
/* create empty object */