diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-08-01 15:03:02 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 05:20:12 +0000 |
| commit | 9d116dd7c895b17badf4ad422ae44da0c4df7bc2 (patch) | |
| tree | 6e0cd77e3539952c892983238473264f672472b9 /x2p/a2py.c | |
| parent | e6df7ed16ebd06f5315f3016c00996876580109c (diff) | |
| download | perl-9d116dd7c895b17badf4ad422ae44da0c4df7bc2.tar.gz | |
support OE/MVS
Message-Id: <199808010903.MAA09371@alpha.hut.fi>
Subject: [PATCH] 5.005_01: OE MVS
p4raw-id: //depot/maint-5.005/perl@1697
Diffstat (limited to 'x2p/a2py.c')
| -rw-r--r-- | x2p/a2py.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/x2p/a2py.c b/x2p/a2py.c index a4753ab864..8a6155f455 100644 --- a/x2p/a2py.c +++ b/x2p/a2py.c @@ -66,7 +66,7 @@ main(register int argc, register char **argv, register char **env) #ifdef DEBUGGING case 'D': debug = atoi(argv[0]+2); -#ifdef YYDEBUG +#if YYDEBUG yydebug = (debug & 1); #endif break; @@ -211,7 +211,7 @@ yylex(void) register int tmp; retry: -#ifdef YYDEBUG +#if YYDEBUG if (yydebug) if (strchr(s,'\n')) fprintf(stderr,"Tokener at %s",s); @@ -273,7 +273,11 @@ yylex(void) case ':': tmp = *s++; XOP(tmp); +#ifdef EBCDIC + case 7: +#else case 127: +#endif s++; XTERM('}'); case '}': |