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
Simplify the conditionals in the XS code for B::COP::{io,warnings}
[perl5.git]
/
ext
/
B
/
B.xs
diff --git
a/ext/B/B.xs
b/ext/B/B.xs
index
9906dd2
..
95d76fc
100644
(file)
--- a/
ext/B/B.xs
+++ b/
ext/B/B.xs
@@
-1196,10
+1196,6
@@
LOOP_lastop(o)
#define COP_arybase(o) CopARYBASE_get(o)
#define COP_line(o) CopLINE(o)
#define COP_hints(o) CopHINTS_get(o)
#define COP_arybase(o) CopARYBASE_get(o)
#define COP_line(o) CopLINE(o)
#define COP_hints(o) CopHINTS_get(o)
-#if PERL_VERSION < 9
-# define COP_warnings(o) o->cop_warnings
-# define COP_io(o) o->cop_io
-#endif
MODULE = B PACKAGE = B::COP PREFIX = COP_
MODULE = B PACKAGE = B::COP PREFIX = COP_
@@
-1246,22
+1242,30
@@
U32
COP_line(o)
B::COP o
COP_line(o)
B::COP o
-#if PERL_VERSION >= 9
-
void
COP_warnings(o)
B::COP o
PPCODE:
void
COP_warnings(o)
B::COP o
PPCODE:
+#if PERL_VERSION >= 9
ST(0) = make_warnings_object(aTHX_ o->cop_warnings);
ST(0) = make_warnings_object(aTHX_ o->cop_warnings);
+#else
+ ST(0) = make_sv_object(aTHX_ NULL, o->cop_warnings);
+#endif
XSRETURN(1);
void
COP_io(o)
B::COP o
PPCODE:
XSRETURN(1);
void
COP_io(o)
B::COP o
PPCODE:
+#if PERL_VERSION >= 9
ST(0) = make_cop_io_object(aTHX_ o);
ST(0) = make_cop_io_object(aTHX_ o);
+#else
+ ST(0) = make_sv_object(aTHX_ NULL, o->cop_io);
+#endif
XSRETURN(1);
XSRETURN(1);
+#if PERL_VERSION >= 9
+
B::RHE
COP_hints_hash(o)
B::COP o
B::RHE
COP_hints_hash(o)
B::COP o
@@
-1270,16
+1274,6
@@
COP_hints_hash(o)
OUTPUT:
RETVAL
OUTPUT:
RETVAL
-#else
-
-B::SV
-COP_warnings(o)
- B::COP o
-
-B::SV
-COP_io(o)
- B::COP o
-
#endif
U32
#endif
U32