diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1991-01-11 08:58:45 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1991-01-11 08:58:45 +0000 |
| commit | 27e2fb84680b9cc1db17238d5bf10b97626f477f (patch) | |
| tree | 39824ce086ad815a976233d0edef5992b06e833c /stab.c | |
| parent | c623bd54707a8bf975b272e17e7c3b3342b31eb0 (diff) | |
| download | perl-3.044.tar.gz | |
perl 3.0 patch #44 patch #42, continuedperl-3.044
See patch #42.
Diffstat (limited to 'stab.c')
| -rw-r--r-- | stab.c | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -1,4 +1,4 @@ -/* $Header: stab.c,v 3.0.1.10 90/11/10 02:02:05 lwall Locked $ +/* $Header: stab.c,v 3.0.1.11 91/01/11 18:23:44 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: stab.c,v $ + * Revision 3.0.1.11 91/01/11 18:23:44 lwall + * patch42: added -0 option + * * Revision 3.0.1.10 90/11/10 02:02:05 lwall * patch38: random cleanup * @@ -170,7 +173,7 @@ STR *str; break; #endif case '/': - if (record_separator != 12345) { + if (record_separator != 0777) { *tokenbuf = record_separator; tokenbuf[1] = '\0'; str_nset(stab_val(stab),tokenbuf,rslen); @@ -401,7 +404,7 @@ STR *str; rslen = str->str_cur; } else { - record_separator = 12345; /* fake a non-existent char */ + record_separator = 0777; /* fake a non-existent char */ rslen = 1; } break; |