Lines 1-16
Link Here
|
1 |
--- Flags.xs.orig 2014-12-03 12:04:54 UTC |
|
|
2 |
+++ Flags.xs |
3 |
@@ -66,8 +66,13 @@ flagspv(o) |
4 |
if (o->op_folded) |
5 |
sv_catpv(RETVAL, ",FOLDED"); |
6 |
#if (PERL_VERSION == 21 && PERL_SUBVERSION > 1) || PERL_VERSION >= 22 |
7 |
+#if (PERL_VERSION == 21 && PERL_SUBVERSION < 11) |
8 |
if (o->op_lastsib) |
9 |
sv_catpv(RETVAL, ",LASTSIB"); |
10 |
+#else |
11 |
+ if (o->op_moresib) |
12 |
+ sv_catpv(RETVAL, ",MORESIB"); |
13 |
+#endif |
14 |
#endif |
15 |
#endif |
16 |
#endif |