diff options
Diffstat (limited to 'gnu/usr.bin/perl/x2p/str.c')
-rw-r--r-- | gnu/usr.bin/perl/x2p/str.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/x2p/str.c b/gnu/usr.bin/perl/x2p/str.c index 0461194..4e078a6 100644 --- a/gnu/usr.bin/perl/x2p/str.c +++ b/gnu/usr.bin/perl/x2p/str.c @@ -1,4 +1,4 @@ -/* $RCSfile: str.c,v $$Revision: 1.1.1.1 $$Date: 1993/08/23 21:30:09 $ +/* $RCSfile: str.c,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:54 $ * * Copyright (c) 1991, Larry Wall * @@ -6,15 +6,18 @@ * License or the Artistic License, as specified in the README file. * * $Log: str.c,v $ + * Revision 1.1.1.1 1994/09/10 06:27:54 gclarkii + * Initial import of Perl 4.046 bmaked + * * Revision 1.1.1.1 1993/08/23 21:30:09 nate * PERL! * * Revision 4.0.1.1 91/06/07 12:20:08 lwall * patch4: new copyright notice - * + * * Revision 4.0 91/03/20 01:58:15 lwall * 4.0 baseline. - * + * */ #include "handy.h" @@ -215,7 +218,7 @@ str_new(len) int len; { register STR *str; - + if (freestrroot) { str = freestrroot; freestrroot = str->str_link.str_next; @@ -314,7 +317,7 @@ register FILE *fp; bp -= 2; } } - + fp->_cnt = cnt; /* deregisterize cnt and ptr */ fp->_ptr = ptr; i = _filbuf(fp); /* get more characters */ |