diff options
author | dlaugt <daniel.laugt@gmail.com> | 2021-01-04 21:35:36 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-01-05 10:46:13 +1100 |
commit | 7e8ad094bab6acb9ea36c1fc61356052a737e31a (patch) | |
tree | bca61d4a703f4d1d9ed7e11ae608a122530152e6 /toke.c | |
parent | e5388933b79bba4c658121614da1fb0ed1f55416 (diff) | |
download | perl-7e8ad094bab6acb9ea36c1fc61356052a737e31a.tar.gz |
Define RSFP_FILENO before using it
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -6696,6 +6696,12 @@ yyl_backslash(pTHX_ char *s) OPERATOR(REFGEN); } +#ifdef NETWARE +#define RSFP_FILENO (PL_rsfp) +#else +#define RSFP_FILENO (PerlIO_fileno(PL_rsfp)) +#endif + static void yyl_data_handle(pTHX) { @@ -9207,13 +9213,6 @@ yyl_try(pTHX_ char *s) - cases for built-in keywords */ -#ifdef NETWARE -#define RSFP_FILENO (PL_rsfp) -#else -#define RSFP_FILENO (PerlIO_fileno(PL_rsfp)) -#endif - - int Perl_yylex(pTHX) { |