Skip to content

Commit

Permalink
better error message for a windows perl 5.14
Browse files Browse the repository at this point in the history
  • Loading branch information
Reini Urban committed Nov 12, 2011
1 parent 4355bc1 commit 47a2526
Showing 1 changed file with 8 additions and 3 deletions.
11 changes: 8 additions & 3 deletions ByteLoader/bytecode.h
Expand Up @@ -525,17 +525,22 @@ static int bget_swab = 0;
# if (PERL_VERSION < 13) || ((PERL_VERSION == 13) && (PERL_SUBVERSION < 5))
# if defined(_WIN32) || (defined(__CYGWIN__) && (__GNUC__ > 3)) || defined(AIX)
# define BSET_cop_label(cop, arg) /* Unlucky. Not exported with 5.12 and 5.14 */
# error "store_cop_label is not part of the public API for your perl. Try a perl <5.12 or >5.15"
# error "cop_label is not part of the public API for your perl. Try a perl <5.12 or >5.15"
# else
# define BSET_cop_label(cop, arg) (cop)->cop_hints_hash = \
Perl_store_cop_label(aTHX_ (cop)->cop_hints_hash, arg)
# endif
# else /* officially added with 5.15.1 aebc0cbee */
# if (PERL_VERSION > 15) || ((PERL_VERSION == 15) && (PERL_SUBVERSION > 0))
# define BSET_cop_label(cop, arg) Perl_cop_store_label(aTHX_ (cop), arg, strlen(arg), 0)
# define BSET_cop_label(cop, arg) Perl_cop_store_label(aTHX_ (cop), arg, strlen(arg), 0)
# else
/* changed with 5.13.4-5 a77ac40c5b8 */
/* changed (macro -> function) with 5.13.4-5 a77ac40c5b8. Windows still out of luck */
# if defined(_WIN32) || (defined(__CYGWIN__) && (__GNUC__ > 3)) || defined(AIX)
# define BSET_cop_label(cop, arg)
# error "cop_label is not part of the public API for your perl. Try a perl <5.12 or >5.15"
# else
# define BSET_cop_label(cop, arg) Perl_store_cop_label(aTHX_ (cop), arg, strlen(arg), 0)
# endif
# endif
# endif
#endif
Expand Down

0 comments on commit 47a2526

Please sign in to comment.