comparison lib-src/etags.c @ 80230:9c2ef4f2ad6a

(Perl_functions): Fix call to skip_spaces.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 27 Feb 2008 20:48:57 +0000
parents 071b5aa4efa1
children 4054054dd212
comparison
equal deleted inserted replaced
80229:581345c45877 80230:9c2ef4f2ad6a
4514 char *package = savestr ("main"); /* current package name */ 4514 char *package = savestr ("main"); /* current package name */
4515 register char *cp; 4515 register char *cp;
4516 4516
4517 LOOP_ON_INPUT_LINES (inf, lb, cp) 4517 LOOP_ON_INPUT_LINES (inf, lb, cp)
4518 { 4518 {
4519 skip_spaces(cp); 4519 cp = skip_spaces (cp);
4520 4520
4521 if (LOOKING_AT (cp, "package")) 4521 if (LOOKING_AT (cp, "package"))
4522 { 4522 {
4523 free (package); 4523 free (package);
4524 get_tag (cp, &package); 4524 get_tag (cp, &package);