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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
df3ba8e
)
vxs.inc: Fix thinko
author
Father Chrysostomos
<sprout@cpan.org>
Fri, 25 Oct 2013 12:57:47 +0000
(
05:57
-0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Sat, 4 Jan 2014 13:10:04 +0000
(
05:10
-0800)
This was causing test failures after rebasing against blead.
vxs.inc
patch
|
blob
|
blame
|
history
diff --git
a/vxs.inc
b/vxs.inc
index
2552ce8
..
e63173b
100644
(file)
--- a/
vxs.inc
+++ b/
vxs.inc
@@
-374,7
+374,7
@@
VXS(version_is_alpha)
{
SV *lobj;
VTYPECHECK(lobj, ST(0), "lobj");
- if ( hv_exists(MUTABLE_HV(
SvRV(lobj)
), "alpha", 5 ) )
+ if ( hv_exists(MUTABLE_HV(
lobj
), "alpha", 5 ) )
XSRETURN_YES;
else
XSRETURN_NO;
@@
-447,7
+447,7
@@
VXS(version_is_qv)
{
SV *lobj;
VTYPECHECK(lobj, ST(0), "lobj");
- if ( hv_exists(MUTABLE_HV(
SvRV(lobj)
), "qv", 2 ) )
+ if ( hv_exists(MUTABLE_HV(
lobj
), "qv", 2 ) )
XSRETURN_YES;
else
XSRETURN_NO;